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SECTION  1 
INTRODUCTION 


A  wide  variety  of  electro-optical  (E-0)  sensors  are  employed  in 
the  modem  tactical  battlefield  environment.  Dust  clouds  are  gener¬ 
ated  when  tactical  munitions  detonate  at  or  below  the  ground  surface. 
These  dust  clouds  can  be  a  major  source  of  degradation  for  the  battle¬ 
field  performance  of  the  E-0  sensors.  References  1  and  2  present 
models  which  have  been  developed  for  the  munitions  dust  clouds  and 
the  propagation  of  E-0  signals  through  the  clouds.  ASL-DUST  is  the 
computer  program  for  these  dust  cloud  and  propagation  models. 

This  volume,  the  User's  manual  for  ASL-DUST,  discusses  the  computer 
subroutines  and  the  input-output  parameters,  and  provides  a  sample 
problem.  A  listing  of  the  code  is  given  in  the  appendix. 

ASL-DUST  is  written  in  Fortran  IV  and  is  comprised  of  about  4,500 
cards.  There  are  many  comment  cards  to  aid  the  programmer  in  under¬ 
standing  the  internal  workings  of  each  routine.  Approximately  28K  of 
storage  is  required.  A  typical  case  with  one  dust  cloud,  one  sight 
path,  and  eight  calculation  times  takes  about  a  third  of  a  second  on 
a  CDC  7600  computer. 

Tne  inputs  to  the  code  are  the  burst  parameters,  transmitter- 
receiver  parameters,  soil  and  carbon  parameters  including  size  dis¬ 
tribution  and  index  of  refraction,  meteorological  conditions,  size 
groups  of  particulates,  and  the  calculation  times.  The  code  first 
calculates  the  Mie  propagation  parameters  (extinction,  absorption, 
scattering,  and  backscatter  mass  coefficients)  for  each  size  group, 
for  each  particulate  material,  and  for  each  frequency.  Then  at  each 
calculation  time  the  code  finds  the  dust  cloud  position  and  spatial 
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mass  distribution.  The  code  integrates  the  mass  penetrated  within 
each  particulate  size  group  along  each  sight  path  (the  path  between 
each  transmitter-receiver  pair).  Applying  the  previously  calculated 
Mie  propagation  parameters,  the  code  then  computes  the  transmission 
each  signal  along  its  sight  path. 


SECTION  2 

THE  COMPUTER  ROUTINES 


GENERAL  INFORMATION 

ASL-DUST  is  organized  into  an  executive  (main)  program  and  a  set 
of  subroutines.  The  modular  organization  of  the  code  is  designed  for 
maximum  user  flexibility.  The  user  who  wishes  to  modify  some  model 
parameter  can  do  so  by  modifying  the  appropriate  subroutine  or  by 
simply  substituting  his  own  subroutine.  Moreover,  many  of  the  rou¬ 
tines  are  complete  within  themselves  and  can  be  lifted  and  used  for 
other  purposes.  For  instance,  the  Mie  routines  form  a  complete  de¬ 
tailed  Mie  calculation  code. 

This  section  briefly  describes  each  of  the  eighteen  ASL-DUST  rou¬ 
tines.  Table  1  summarizes  their  major  functions.  More  information 
concerning  the  detailed  logical  organization  of  the  routines  may  be 
obtained  from  the  listings  of  the  Fortran  source  programs  presented  in 
the  appendix.  The  method  of  preparing  the  inputs  for  ASL-DUST  is 
discussed  in  Section  3. 

COORDINATE  SYSTEM 

A  three-dimensional  Cartesian  coordinate  system  is  used.  The  x 
and  y  axes  are  horizontal  and  the  z  axis  is  the  vertical  direction  (see 
Figure  1).  Azimuths  in  the  horizontal  plane  are  measured  clockwise 
from  the  y  axis. 

EXECUTIVE  ROUTINE 

This  routine  controls  the  sequence  of  operations  for  ASL-DUST. 

The  routine  first  sets  the  tape  numbers  for  input-output  and  the  de¬ 
fault  values  for  the  input  quantities.  It  then  reads  the  input  for 
the  first  problem  by  calling  INPUT.  Next,  the  Mie  propagation 
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TABLE  1 .  ASL-DU3T  COMPUTER  ROUTINES 


. . .  ■■■■■'  ■■  —l 

Name  of  Routine 

- -  '  1  - - -  ■■■■"'  ■  -  ,  "  . . 

Function 

Executive  Routine 

Control  program.  Determines  sequence  of  operations. 

INPUT 

Reads  and  writes  the  input  quantities. 

PGROUP 

Control  program  for  calculating  the  Mie  propaga¬ 
tion  coefficients  for  each  size  group,  for  each 
particulate  material,  and  for  each  frequency.. 

CGROUP 

Performs  preliminary  Mie  propagation  coefficiei ». 
calculations;  sets  up  input  for  CROSS. 

CROSS 

Integrates  over  the  size  group. 

MIE 

Provides  Mie  efficiencies  and  scattering  pattern 
for  a  single  uniform  spherical  particle. 

ANF 

Evaluates  a  complex  function  used  in  Mie. 

CUMNOR 

Computes  the  cumulative  function  of  the  normal 
random  probability  distribution. 

INITG 

Evaluates  the  initial  (t  =  0+)  properties  of  the 
dust  clouds. 

TIMECO 

Determines  the  location  and  dimensions  of  the 
ideal  massless  size  group. 

TIMFCG 

Determines  the  location  and  dimensions  of  a 
given  size  group  in  the  dust  clouds. 

PATH 

t 

Integrates  the  dust  cloud  mass  density  along 
each  sight  path. 

DEPTH 

Computes  optical  depths  along  each  sight  path. 
Prints  output  results. 

ADDVEC 

Adds  two  three-vectors  together. 

SUBVEC 

Subtracts  two  three-vectors. 

MULVEC 

Multiplies  a  three-vector  by  a  scalar. 

DOTVEC 

Scalar  (dot)  product  of  two  three-vectors. 

DSTVEC 

Computes  the  distance  between  end  points  of  two 
three-vectors. 

Figure  1.  Coordinate  system. 


coefficients  for  each  particulate  material,  size  group,  .i-.d  frequency 
are  calculated  and  stored  by  calling  PGROUP.  The  initial  (t  =  0+) 
properties  of  the  dust  clouds  from  each  burst  are  found  by  a  call  to 
INITG.  Then  for  each  calculation  time  and  for  each  burst,  the  mass 
distribution  of  each  size  group  is  found  by  calls  to  TIMECO  and  TIMECG. 
For  each  sight  path  a  call  to  PATH  computes  the  group  mass  "enetrated. 
A  call  to  DEPTH  then  computes  the  optical  depth  along  each  sight  path. 
After  all  calculations  are  complete  the  output  is  written  out;  the 
program  then  begins  again  by  reading  the  input  for  the  next  problem. 


INPUT 

This  routine  reads  the  input  quantities  for  each  problem.  After 
all  input  is  read,  the  routine  writes  out  the  input  data. 


PGROUP 

This  is  the  control  routine  for  calculation  of  the  Mie  propagation 
coefficients  for  each  size  group,  each  particulate  material,  and  each 
frequency.  The  primary  Mie  parameters  are  the  extinction,  absorption, 
and  scattering  cross  sections  and  mass  coefficients  averaged  over  a 


III; . I . . . . . I . . . In,,; . . . . . . . & . . . . . . . . . . . . . j . . . . . . . . . * . . . . . . - . . . . • . . . . 1 . . “ . . . !j“ 


size  group.  The  routine  first  calculates  the  Mie  propagation  coef¬ 
ficients  for  each  size  group  assuming  Lhat  there  is  no  mixing  of 
particulates  from  other  size  groups.  The  size  groups  are  ordered  by 
size,  beginning  with  the  smallest.  The  coefficients  for  each  group 
are  calculated  in  turn  until  the  extinction  contribution  of  the  present 
size  group  becomes  negligible;  the  remaining  larger  size  groups  are 
not  calculated  and  their  coefficients  are  set  equal  to  zero.  This 
neglect  of  the  insignificant  size  groups  saves  computing  time.  After 
all  significant  size  groups  are  calculated,  the  routine  then  writes 
out  the  unmixed  propagation  coefficient  results. 

The  routine  then  recomputes  the  mass  fractions  and  propagation 
coefficients  in  each  size  group  by  assuming  a  mixture  of  particle 
sizes.  The  mixing  model  is  given  in  the  fractionization  section  of 
Reference  2.  The  routine  then  writes  out  the  mixed  propagation  coef¬ 
ficient  results. 

CGROUP 

This  routine  does  some  preliminary  Mie  propagation  calculations 
for  a  given  size  group.  It  sets  up  the  input  to  routine  CROSS. 

CROSS 

This  routine  evaluates  the  size  group  mean  Mie  propagation  coef¬ 
ficients  by  integrating  over  the  particle  size  probability  distribu¬ 
tion.  CROSS  calls  routine  MIE  to  evaluate  the  coefficients  at  a 
particular  integrand  point. 

A  new  variable  step  length  algorithm  has  been  developed  fen  the 
integration  over  particle  sizes.  The  algorithm  accounts  for  the  rate 
of  change  of  integrand  magnitude  with  step  length  and  the  contribution 
of  the  step  to  the  total  integral.  A  rapidl/  changing  integrand  re¬ 
quires  smaller  steps,  while  a  portion  of  the  integral  that  zontributes 
little  to  the  total  can  be  calculated  with  larger  steps.  The  algorithm 
is  designed  to  produce  maximum  accuracy  with  minimum  computational 
time. 


12 


The  equations  solved  in  the  routines  are  the  following.  The  mean 
cross  section  per  particle  is 


r  2  2 

I  ira 

-  k_J_ 

ra  2 

L  1 


Q(a)P(a)  da 


crn  per  particle 


P(a)  da 


where 


a  =  average  cross  section  per  particle  for  scattering,  back- 

2 

scatter,  absorption,  or  extinction  (cm  ) 
a  =  particle  diameter  (cm) 
a^  =  minimum  diameter  of  particle  size  group  (cm) 

^2  =  maximum  diameter  of  particle  size  group  (cm) 

Q(a)  =  Mie  efficiency  for  scattering,  backscatter,  absorption, 
or  extinction  for  a  particle  of  diameter  a 
P(a)  =  size  probability  distribution  (log  normal,  power  law, 
or  hybrid). 

The  normalized  scattering  pattern  is 


V0) 


/•  Un 

aSCA  J  a 


T~  QSCA(a)P(a)S(0,a)  da 


where 


(j„„.  =  average  cross  section  per  particle  for  scattering, 
given  in  Equation  1  (cm4) 

Q$cA(a)  =  Mie  efficiency  for  scattering 
S(0,a)  =  normalized  scattering  pattern  at  scattering  angle 
for  a  single  particle  of  diameter  a 
(0)  =  normalized  scattering  pattern  for  the  size  group. 

The  scattering  patterns  are  normalized  so  that 


l[ 

4ir  / 

JAnr 


s(0)  dn  =  i 


Hence  an  isotropic  scattering  pattern  is  identically  equal  to  unity 
for  all  angles.  The  mass  coefficient  per  gram  of  material  in  the  size 


group  is 


-  2-1 
y  =  NTa  cm  g  , 


where 


y  =  mass  coefficient  for  scattering,  backscatter,  absorption, 

,  2  -K 

or  extinction  (cm  g  ) 

Nt  =  total  number  of  particles  per  gram  of  material  in  the  size 

T  ,  -K 

group  (g  ) • 


The  integration  strategy  is  the  following: 


C2  V  fj+1 

=  /  1(a)  da  =  X,  I 

•4,  3=1*4. 


1  (a)  da 


where 


1(a)  =  integrand  of  the  integral  of  interest. 

The  interval  from  a-l  to  a2  is  broken  up  into  a  number  of  subintervals. 
For  each  subinterval  we  assume  that  the  integrand  can  be  described  by 
a  power  law, 


1(a)  -  I(a3)(i)X  a.  <a<ajtJ 


where 


I  (a .  . ) 

j+i 

I  (a-) 


Then  the  contribution  to  the  total  integral  of  this  subintervil  is 


raj*i 


AIt  = 


I (a)  da 
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a.  1 

I (a.)a.  — it— 

3  3  a. 

j  j  j 


x  =  -1 


The  contributions  of  the  subintervals  are  calculated  and  summed  until 
either 

(1)  the  diameter  limits  of  the  size  group  interval  are  reached, 
or 

(2)  the  integral  converges  to  its  final  value  (the  remaining 
unsummed  subintervals  are  negligible). 

The  step  size  is  chosen  as  the  e-folding  distance  for  the  integrand: 

1 


).  =  a...  -  a.  =  a.  e^  -  1 

i  3+1  1  J 


With  this  step  size, 


I(a.+1)  =  I (a.)  e-A  ,  (1C 

where  the  plus  sign  is  for  positive  x  and  the  negative  sign  is  for 
negative  x.  In  addition,  for  those  cases  where  the  integrand  is  de¬ 
creasing  so  that  the  subinterval  contributions  are  decreasing,  the 
step  size  is  increased.  The  increase  is  taken  as  the  ratio  of  the 
previous  contribution  to  the  last  contribution: 


ruf  i(MtVi 


1  ^T^j-1 

—  if  7at-V-  -  >  1 

2  (AVj-2 


This  routine  calculates  the  Mie  efficiencies  and  scattering  pat¬ 
tern  for  a  given  uniform  spherical  particle.  This  routine  and  its 
slave  routine  ANF  were  originally  developed  by  the  author  for  the  WOE 
code.  Reference  3.  For  completeness  and  reader  convenience,  the  docu¬ 
mentation  is  reproduced  here. 
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We  first  present  the  formulas  for  the  Mie  solution  (see  any  standard 
text  for  a  derivation)  and  then  the  method  used  to  solve  the  equations. 
Define  the  following  quantities: 


r  = 
\  = 

a  = 


m 


Y  = 


SCA 

JABS 

^SCA 


/\BS 


radius  of  the  uniform  sphere 
wavelength  of  the  incident  radiation 
2nr/A 

dimensionless  size  parameter 

n!R  -  imi 

complex  index  of  refraction  of  the  sphere  (note  that 
here  we  are  using  m  instead  of  n,  since  by  custom  n  is 
used  as  the  order  in  the  Mie  formulas) 
met 

scattering  cross  section  cf  the  sphere 
absorption  cross  section  of  the  sphere 

W"2 

scattering  efficiency  of  the  sphere 

W”2 


=  absorption  efficiency  of  the  sphere 


QEXT  =  QABS  +  %CA 

=  extinction  efficiency 

S(0)  =  scattering  function.  S(0)  dQ  is  the  fraction  of  the 
incident  unpolarized  energy  per  unit  area  that  is 
scattered  into  solid  angle  dft,  which  is  centered  about 
the  direction  that  makes  an  angle  0  with  the  direction 
of  the  incident  radiation  (0  is  the  scattering  angle) . 


The  equations  for  the  Mie  solution  are: 


co 

[laj2  *  lbJ2 

a  ,  J 

n=l 

•» 

%XT  =  ~2  X/  ^2n  +  ^  Re  ^an  +bn^ 
a  n=l 

(where  Re  signifies  the  real  part  of) 


(12) 


(13) 


16 


where 


S(8)  =  *  |s2C0)l2i  , 


rf'myoO  -  Y¥'(cx)¥n (Y) 
n  a^(Y)?n(a)  -  YZn(a)fn(Y) 


Y^(Y)fn(a)  -  aV^(a)VnCY) 
n  Y^(Y)Sn(a)  -  a£n(a)¥n(Y) 


b  = 


CO 

S1(6)  ■  Z  irsrny  jVn(cos  8>  *  b„VC0S  «i 

n=l 

00 

S2f0)  =  Z  ^rrrr  |bnVcos  6>  *  Vn(cos  e)! 


n=l 


and 


¥ 


k  1/2 


"  (f)  Vl/2^) 


V2> 


■  (f  r 


sn 


LW(2)  +  i(-X)  J-n-l/2^ 


■] 


(14) 


(15) 


(16) 


(17) 


(18) 


(19) 


(20) 


TT^CCOS  0)  =  P^(COS  0) 


(21) 


x  (cos  0)  =  cos  0  it  (cos  0)  -  sin^  0  w  (cos  0)  .  (22) 

n'-  J  nv  '  d  cos  On''  1  K  J 

The  J's  are  spherical  Bessel  functions  of  complex  argument  and  half¬ 
integer  order.  The  P's  are  Legendre  polynomials.  ¥  and  £  are  Riccati- 
Bessel  functions,  and  tt  and  x  are  associated  Legendre  polynomials. 
Define  an  arbitrarily  oriented  plane  containing  the  scattering  sphere 
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and  the  incident  radiation.  Then  for  scattered  radiation  within  the 
plane,  the  complex  amplitude  function  5^6)  describes  the  scattering 
for  an  incident  plane  wave  with  vertical  polarization  (E  perpendicular 
to  the  scattering  plane);  S2(0)  is  for  horizontal  polarization  (E 
parallel  to  the  scattering  plane). 


As  might  be  expected  from  the  complexity  of  the  Mie  equations,  the 
numerical  evaluation  of  Qg^j  QgXT’  anc*  s(®)  ^or  a  8aven  m  anc*  a  as 
not,  in  general,  a  trivial  task.  The  terms  in  the  infinite  series 
have  to  be  evaluated  and  summed.  The  number  of  terms  that  have  to  be 
evaluated  before  the  series  converge  depends  primarily  upon  the  size 
parameter  a.  Roughly,  the  number  of  Mie  terms  required  is  1.5a;  for 
large  particles  and  small  wavelengths,  several  hundred  terms  are  often 
required  before  convergence. 


The  evaluation  of  the  various  orders  of  £  ,  u  ,  and  T  is  straight 

ti  ’  n  n  6 

forward.  IVe  can  use  the  well  known  recurrence  relations  of  Bessel 
functions  and  Legendre  polynomials  to  obtain 


£  fa)  =  £  .  (a)  -  £  0  (a) 

Ti  a  n-lv  J  ^ n-2 '  J 


(23) 


with  initial  values 


50C«) 

£_j(cO 
unCcos  9) 

Tn(C0S  0) 


sin  a  + 

i 

cos  a 

(24) 

s  a  — 

i 

sin  a 

(25) 

2n  -  1 
n  -  1 

cos 

;  0  tt 

n- 

J  (cos 

6)  - 

n 

n  - 

T"n-2<cos  6> 

(26) 

cos  0 hr 
In 

(cos  0)  - 

rr  „ 
n-2 

(cos 

«] 

-  (2n- 

1) 

sin2  0 

tt  i 
n-1 

(cos 

0)  + 

Tn-2Cc°S  '-  j  • 

(27) 

The  initial  values  are 
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n  (cos  0)  =  0  (28 

tq(cos  0)  =  0  (29 

u^(cos  0)  =  1  (30 

Tj (ccs  0)  =  COS  0  (31 

it?(cos  0)  =  3  cos  0  (32 

t2(cos  0)  =  3  cos  (20)  .  (32 

With  the  initial  values,  we  can  use  the  forward  recurrence  relations 
to  generate  the  required  terms  to  any  order.  The  forward  recursion 
technique  for  these  three  functions  is  stable  and  accurate. 

To  complete  our  numerical  evaluation,  we  define  the  complex  func- 


*  m  =  SlIQI 

iKY) 


With  this  definition,  the  Mie  formulas  for  a  and  b  can  be  written 

n  n 


1 17- 


— +  -).Rek  (a)  |  -  ReU  (a)| 
\  m  a /  rnw| _ pn-lv  J\ 

/A  (Y)  \ 

(-V  *  iJV”)  - 


Km  * 


W“> 


The  primary  difficulty  in  evaluating  the  Mie  formulas  lies  in  the 

evaluation  of  A^flj.  Using  the  properties  of  the  Bessel  functions, 

we  can  write  A  (Y)  as 
nv  J 

A  (Y)  =  -  —  +  Jn-I/20°  r 

nC)  Y  Jn+1/2(Y)  *  C' 
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Thus,  if  we  can  evaluate  the  Bessel  functions,  say  by  forward  recur¬ 


sion,  A  (Y)  can  be  evaluated.  Alternately,  we  can  use  the  recurrence 


relations  for  the  ratios  of  the  Bessel  functions  and  write  the  recur¬ 


sion  equation  for  A  (Y)  itself  as 


V')  ’  -  7  *  (y  -  Vi(v)) 


\-l 


(38 


with  initial  condition 


cos 


A  O’)  =  •  v 

o  sm  V 


(59 


The  forward  recursion  technique  for  the  evaluation  of  A^(Y)  is  very 


susceptible  to  error  in  at  least  four  eases  (Reference  4) : 


a 

a 


a 

a 


iVhen  the  argument  is  small 

When  the  argument  is  large,  requiring  a  large  number  of 
orders 

When  the  imaginary  value  is  larger  than  the  real  value 
For  certain  anomalous  values. 


The  use  of  forward  recursions  to  generi  ib  the  consecutive  orders  of 
Bessel  functions  is  a  classic  example  of  unstable  numerical  methods. 


Many  other  techniques  have  been  devised  to  generate  the  required 
Bessel  functions  or  ratios.  Most  techniques  involve  some  type  of 
backward  recursion.  The  values  of  the  Bessel  functions  or  the  ratios 
are  evaluated  at  a  high  order,  and  the  backward  recursion  relation  is 
used  to  evaluate  the  lower  orders.  The  backward  recursion  does  not 
have  the  instability  of  the  forward  method.  However,  care  must  be 
taken  to  preserve  accuracy;  some  techniques  lose  accuracy  even  when 
using  double  precision  arithmetic.  Recently  Lents  (Reference  4)  has 
developed  an  algorithm  for  evaluating  the  Bessel  functions  and  ratios 
that  eliminates  the  weaknesses  of  the  earlier  methods.  Lent.,  s 
algorithm  uses  a  new  technique  of  evaluating  continued  fractio  -»  that 
starts  at  the  beginning  rather  than  the  tail  and  has  a  built-in  error 
check.  Using  the  method,  any  A  (Y)  can  be  generated  completely 


independently  of  all  preceding  values  with  high  accuracy.  Readers  are 
referred  to  Lentz’s  article  for  details. 

We  use  Lentz's  method  to  generate  A^fY)  for  n  of  order  wl. 5a  and 
then  use  the  backward  recursion  relationship, 

A„-1(Y>  -7-  (f'V”)'1  >  <4°) 

to  generate  all  lower  orders.  Using  the  forward  recursion  relations 
for  the  other  functions,  the  a  and  b  are  calculated  and  infinite 
series  summed  until  convergence.  In  almost  all  cases,  convergence  is 
reached  before  reaching  the  highest  precomputed  order  of  An(Y).  Other¬ 
wise  Lentz's  method  is  used  to  generate  any  additional  needed  terms. 


Utilizing  the  Lentz  algorithm,  we  have  written  a  very  compact  com¬ 
puter  routine  that  evaluates  the  exact  Mie  equations  for  Qg^j  ^EXT 
(and  thus  QABS)>  and  S(6).  The  running  time  is  quite  reasonable  for 
an  exact  calculation.  For  a  =  1.2,  three  orders  are  required  for 


convergence,  and  the  running  time  is  1  millisecond  on  a  CDC  7600  com 
puter.  For  a  =  100,  103  orders  are  required  with  a  running  time  of 


25  milliseconds. 


ANF 

ANF  is  a  slave  routine  to  MIE.  ANF  uses  Lentz's  method  (Reference 
4)  to  evaluate  the  complex  function  An(Y)  of  Equation  37. 

CUMNOR 

This  routine  evaluates  the  following  function: 

!F(x)  x  ^  0 

(41) 

1  -  F(x)  x  >  0 


where 

F(x) 


(42) 
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=  cumulative  probability  of  the  standardized  normal 
random  probability  distribution. 

To  numerically  evaluate  CUMNOk(X)  we  use  the  approximation  formulas 
of  Reference  5.  For  |x|  less  than  5  we  use  the  polynomial  approxima¬ 
tion  formula  26.2.17,  and  for  |x|^  5  we  use  the  asymptotic  approxima¬ 
tion  formula  26.2.24. 

For  -5  <  x  <  5, 


CUMNOR(X)  =  1  -  -4=  e  2 


v£T 


C43) 


where 


1 


1  +  p  1  x  J 
p  =  0.2316419 


b}  =  0.319581530 


b?  =  -0. 3565657S2 


b_  =  1.781477937 
a 


b,  =  -1.821255978 
4 


b5  =  1.550274429 


”8 

The  error  in  this  approximation  is  less  ^han  7.5  x  10  .  For  jxj  >_  5, 

_  x" 

CUMNOR(X)  =  r_-4-+-xl  1 X1  .  (44) 

L  J  y/2n 

_8 

At  { x |  =5  the  error  in  this  approximation  is  less  than  1.1  *  10 
and  decreases  rapidly  with  increasing  jxj . 


INITG 

The  initial  dust  cloud  is  assumed  to  form  instantaneously  at  burst 
time.  This  routine  evaluates  the  following  initial  cloud  parameters: 
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1.  Total  dust  mass  lofted  in  the  main  and  base  dust  clouds. 

2.  Total  carbon  mass  in  the  main  and  base  dust  clouds. 

3.  Initial  radius  of  equivalent  spherical  cloud. 

4.  Initial  radii  of  the  main  dust  cloud  in  the  artillery  shell 
track  direction,  cross  track  direction,  and  vertical  direc¬ 
tion. 

5.  Initial  radii  of  the  main  dust  cloud  in  the  wind  track 
and  cross  track  directions. 

6.  Main  dust  cloud  rise  rate  constant. 

7.  Main  dust  cloud  vertical  diffusion  constant. 

8.  Time  delays  before  the  wind  begins  moving  the  main  and 
base  clouds  horizontally. 

9.  Mean  wind  velocities  at  the  center  of  the  initial  cloud 
and  at  10  meters  altitude. 

After  evaluation  the  routine  writes  out  most  of  the  initial  parameters 
TIMECO 

The  smallest  particles  in  the  main  dust  cloud  rise  with  the  ideal 
spherical  cloud  rise  rate,  transport  with  the  wind  velocity  (after  the 
initial  time  delay),  and  diffuse  with  the  ideal  cloud  diffusion  rate. 
The  heavier  particles  will  rise  at  a  slower  rate  and  eventually  fall 
out  of  the  cloud,  will  lag  behind  the  smaller  particles  in  horizontal 
wind  transport,  and  will  diffuse  at  a  slower  rate.  At  a  given  time  t 
after  burst,  this  routine  evaluates  the  following  parameters  for  the 
ideal  zero  mass  particles  in  both  the  main  and  base  dust  clouds: 

1.  Centroid  coordinates  (location  of  the  center  of  mass  of  the 
ideal  cloud). 

2.  Radii  in  the  wind  track,  cross  track,  and  vertical  directions. 


TIMECG 

This  routine  calculates  the  same  parameters  of  centroid  location 
and  cloud  radii  at  time  t  for  the  finite  size  particles  in  a  given 
size  group. 


PATH 


This  routine  evaluates  the  integral  of  the  mass  density  (mass 
penetrated)  along  the  sight  path  between  a  given  transmitter-receiver 
pair  due  to  each  type  of  partitulate  material  in  a  given  size  group 
at  a  given  tine.  The  quantity  evaluated  is 


(45) 


where 


P  =  distance  along  sight  path  from  transmitter  to  receiver  (cm) 
=  total  distance  from  transmitter  to  receiver  (cm) 
o(D)  =  mass  density  at  distance  D  along  sight  path  due  to  the 
given  particulate  material  in  the  given  size  group 
(g  cm'0) . 


The  integration  strategy  is  to  begin  at  the  point  of  closest  ap¬ 
proach  of  the  sight  path  to  the  size  group  centroid  location  and  numer¬ 
ically  integrate  forward  and  backward.  The  numerical  integration  uses 
a  Simpson’s  Rule  approximation  with  a  step  size  of  0.2  of  the  Gaussian 
standard  deviation  of  the  size  group  mass  density.  The  integration  is 
continued  until  the  receiver  or  transmitter  is  reached  or  until  the 
mass  density  becomes  negligible.  The  integration  is  terminated  when 
the  distance  from  the  integration  point  to  the  group  centroid  exceeds 
five  standard  deviations.  At  this  point  the  mass  density  at  the  Integra 


tion  point  is  down  at  least  a  factor  of  e 
density  at  the  cloud  centroid. 


-52/2 


=  5.7  *  10  ^  from  the 


DEPTH 

This  routine  evaluates  the  optical  depths  and  transmission  along  a 
given  sight  path  at  a  given  time.  It  calculates  the  optical  depth  con¬ 
tribution  due  to  each  material  in  each  size  group  and  the  sum  vf  al I 
contributions.  The  quantities  evaluated  are 


(Vi  -  (MpMPE)i 


(46) 
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=  extinction  optical  depth  contribution  due  to  the 
particulates  in  size  group  i 

(Mp)^  =  mass  penetrated  due  to  particulates  in  size  group  i 
(g  cm"2) 

(pp) ,  =  mass  extinction  coefficient  for  particulates  in  size 

b  1  _i 

group  i  (cm“  g  ) 

(Vi  =  <HpWi  (47) 

=  scattering  optical  depth  contribution 

(Vi  ■  <MpWi  <48> 

=  absorption  optical  depth  contribution 

te  =  2  (Vi  (49) 

=  total  extinction  optical  depth  due  to  all  size  groups 


■  £  Vi 

■  £  <Vi 


l 

T  =  e‘TE  (52) 

=  transmission  (one  way). 

Routine  DEPTH  writes  out  the  optical  depth  contribution  results 
and  the  total  optical  depths  and  transmission.  Because  the  detailed 
results  of  the  individual  optical  depth  contributions  can  result  in  a 
large  amount  of  output,  the  printing  of  these  detailed  results  can  be 
suppressed  by  an  input  option. 

ADDVEC 

This  routine  and  the  following  vector  routines  are  extremely  short 
and  do  simple  vector  operations.  This  routine  adds  two  three-vectors 
together: 

v  =  Vj  +  v2  =  (Xj  +x2,  y1  +y2,  Zj  +  z2)  (53) 


where 


V1  =  (xi»  ^i*  =  three-vector 

•V 

v 2  =  (x 2>  y 2>  z2^  =  second  three-vector. 


SUBVEC 


This  routine  subtracts  two  three-vectors : 


-y  -y  -y 


V  =  vi  -  V2  =  CXj-x2>  y j-y2.  z,-z2) 


MULVEC 


This  routine  multiples  a  three-vector  by  a  scalar: 


V  =  SVj  =  (SXj,  sx2,  SXj)  , 


where 


s  =  scalar 


DOT V EC 


This  routine  forms  the  scalar  (dot)  product  of  two  three-vectors: 


p  "  W  X1X2  +  >'ly2  +  zlz2  * 


DSTVEC 


Thi«  routine  evaluates  the  distance  between  the  endpoints  of  two 
three-vectors : 


D  =  |vx  -v2 


/cx1  -  x2)2  -  (y1-y2)2  +  C^i  -  z2)2 


SECTION  3 
INPUT 


GENERAL  INFORMATION 

Ail  input  is  read  by  the  INPUT  subroutine  from  a  logical  file  unit 
which  has  been  assigned  the  number  5.  This  can  be  readily  changed  to 
meet  the  requirements  of  a  particular  computer  installation  by  changing 
the  value  of  the  variable  ITAPE  which  appears  at  the  beginning  of  the 
Executive  Routine. 

Input  is  prepared  on  standard  IBM  punched  cards.  Each  input  card 
contains  a  letter,  from  A  to  M,  punched  in  column  1  to  identify  the 
information  contained  on  that  card.  The  INPUT  routine  reads  the  in¬ 
put  a  card  at  a  time,  interprets  the  identification  letter,  and  as¬ 
signs  the  data  to  the  appropriate  input  variables .  Card  after  card 
is  read  until  a  blank  card  (a  card  with  no  punch  in  column  1)  is  read. 
This  signifies  that  all  of  the  data  for  this  problem  have  been  pre¬ 
sented  and  thus  terminates  the  input  sequence  and  initiates  calcula¬ 
tion.  After  all  calculations  have  been  completed  and  the  output 
printed,  the  Executive  Routine  returns  to  the  INPUT  routine  to  read 
the  data  for  the  next  problem.  As  many  separate  problems  as  desired 
may  be  stacked;  the  data  cards  for  each  problem  end  with  a  blank  card 
to  initiate  calculation.  Two  blank  cards  in  a  row  indicate  the  end 
of  the  problem  sees. 

A  large  number  of  inputs  are  required  to  completely  specify  a 
problem.  There  are  13  different  input  cards  with  up  to  8  input  items 
on  a  card.  Except  for  the  burst  yield,  default  values  are  internally 
supplied  for  all  input  values  not  specified  by  the  user.  Before  the 
input  data  for  the  first  problem  are  read,  the  values  for  all  input 


variables  (except  burst  yield)  are  s^t  to  the  default  values.  Then 
the  input  cards  for  the  first  problem  are  read  and  all  user- specified 
inputs  are  substituted  for  the  default  values.  At  the  end  of  the 
first  problem  card  set,  a  complete  set  of  input  data  exists,  either 
all  user  supplied  or  a  combination  of  user  and  default  inputs.  For 
the  second  problem,  the  code  begins  with  the  first  problem  data  set 
and  only  the  inputs  on  the  second  problem  data  cards  are  changeQ  from 
the  first  problem  values.  Hence  only  those  cards  with  information  dif¬ 
ferent  from  the  preceding  problem  need  be  included  on  succeeding  prob¬ 
lems.  The  only  exception  is  that  every  problem  set  must  have  at  least 
one  A  card,  which  contains  the  burst  yield  information.  Thus  a  prob¬ 
lem  set  may  consist  of  all  13  different  input  cards  or,  at  the  minimum, 
consist  of  a  single  A  card.  There  are  up  to  8  input  values  on  a  data 
card . 

If  any  entry  is  left  blank,  the  code  automatically  uses  the  de¬ 
fault  value  for  that  entry.  Hence,  when  a  data  card  is  used  on  suc¬ 
ceeding  problems,  all  entries  on  that  card  that  are  not  default  values 
must  be  supplied  even  though  they  may  be  the  same  as  the  preceding 
problem.  If  a  card  is  not  supplied,  the  code  assumes  the  values  are 
the  same  as  the  preceding  case;  if  a  card  is  supplied,  the  code  assumes 
that  all  values  on  the  card  are  respecified. 

DESCRIPTION  OF  THE  INPUT  CARDS 

Figure  2  shows  the  input  card  parameters,  and  Figure  3  shows  the 
default  values.  F.ach  input  card  is  read  under  an  Al,  E9.0,  7E10.0 
format.  Thus  the  data  a^e  punched  in  floating  point  format  in  10- 
column  fields,  with  the  exception  that  the  first  field  occupies  nine 
columns  to  make  room  for  the  card  identification  letter  in  column  1. 
Note  that  whole  numbers  may  be  punched  as  integers  if  the  number  is 
right  justified  within  the  appropriate  field. 

Ten  bursts  are  allowed,  so  there  can  be  up  to  10  A  and  B  cards. 
Similarly  10  transmitter- receiver  pairs  are  allowed,  so  there  can  be 
up  to  10  C  and  D  cards.  The  order  of  the  different  cards  is 
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immaterial,  but  the  multiple  cards  within  a  given  identification  card 
must  be  in  sequence.  That  is,  if  there  are  five  A  cards,  then  the  five 
corresponding  B  cards  must  be  in  the  same  order.  The  first  A  card  goes 
with  the  first  B  card;  the  second  A  card  goes  with  the  second  B  card, 
etc. 

A  Card 

The  A  card  contains  the  first  part  of  the  burst  information.  Up  to 
10  bursts  are  allowed,  so  there  can  be  up  to  10  A  cards.  For  this  ver¬ 
sion  of  the  code  all  bursts  are  assumed  to  detonate  simultaneously  at 
time  zero.  The  first  entry  is  the  total  TNT  yield,  or  equivalent  TNT 
yield  for  a  non-TNT  device,  in  pounds.  This  is  the  one  entry  which 
must  be  specified  by  the  user;  no  default  value  is  provided.  An  A 
card  without  an  entry  for  the  yield  will  be  ignored  by  the  code. 

The  second  entry  is  f^,  the  fraction  of  the  total  yield  which  ap¬ 
pears  as  hydrodynamic  energy,  f^  is  used  in  the  determination  of  the 
initial  ideal  spherical  cloud  radius. 


where 

W  =  total  munition  yield  (lb  TNT) 

_3 

p  =  sea  level  air  density  (g  cm  ) 

°  _3 

p  =  air  density  at  blast  site  (g  cm  ) . 

The  third,  fourth,  and  fifth  entries  are  the  shape  factors  for  the 
real  initial  dust  cloud.  A  static  blast  will  generally  produce  an 
initial  cloud  that  is  roughly  spherical  (Cp  =  Cp  =  Cy  =  1).  But  a 
live  munition  impacts  the  ground  with  a  large  velocity  and  can  pro¬ 
duce  dust  clouds  that  are  elongated  in  the  shell  track  direction. 

The  radii  of  the  initial  real  dust  cloud  in  the  shell  track,  cross 
track,  and  vertical  directions  are  taken  as  the  product  of  these 
shape  factors  and  the  ideal  spherical  cloud  radius  of  Equation  58: 
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R^,  =  CtRj  m 

(59a) 

RP  =  CPRI 

(59b) 

Ry  =  ^yRI 

(59c) 

The  sixth,  seventh,  and  eighth  entries  are  the  coordinates  of  the 
ground  surface  at  the  burst.  Note  that  the  z  coordinate  is  the  coor¬ 
dinate  of  the  ground  surface  and  not  that  of  the  burst  itself.  A  sur¬ 
face  burst  and  a  buried  burst  have  the  same  z  coordinate. 

B  Card 

The  B  card  contains  the  rest  of  the  burst  information.  The  first 
B  card  goes  with  the  first  A  card,  the  second  B  card  with  the  second  A 
card,  etc.  If  there  are  more  A  cards  than  B  cards,  the  code  automati¬ 
cally  fills  the  missing  B  inputs  with  default  values.  If  there  are 
more  B  cards  than  A  cards,  the  code  simply  ignores  the  excess  B  cards. 

The  first  B  entry  is  the  depth  of  burst.  This  is  the  distance  the 
munition  center  of  mass  is  below  the  ground  surface  at  detonation.  A 
munition  that  detonates  above  the  ground  would  have  a  negative  value 
for  depth  of  burst.  Currently  this  variable  is  not  used  in  the  code. 
For  some  soils  the  apparent  crater  volume  scaling  factor  is  a  smooth 
function  of  the  depth  of  burst.  For  these  soils  the  scaling  factor 
could  be  internally  calculated  rather  than  being  input. 

The  second  entry  is  the  fraction  of  the  apparent  crater  mass  that 
is  lofted  into  the  dust  cloud.  A  crater  is  left  in  the  soil  after  a 
munition  explosion.  The  volume  of  this  visible  crater  (that  part 
below  the  original  ground  level)  is  the  apparent  crater  volume.  The 
apparent  crater  mass  is  the  mass  of  the  soil  that  was  in  the  apparent 
crater  volume.  Part  of  the  mass  is  lofted  into  the  dust  cloud,  part  is 
thrown  out  to  the  sides,  and  part  is  piled  up  on  the  crater  ii " . 

The  third  entry  is  the  apparent  crater  volume  scaling  faciir.  The 
volume  of  tne  apparent  crater  is  calculated  from  the  scaling  relation. 
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(60) 


,,  e  .1.111  3 

VA  =  SACW 


> 


where 

3 

V.  =  volume  of  apparent  crater  (m  ) 

A  3-1  111 

=  apparent  crater  volume  scaling  factor  (m  (lb  TNT)  '  ) 

W  =  total  munition  yield  (lb  TNT). 

The  scaling  factor  depends  on  the  type  of  soil,  type  of  munition,  and 
depth  of  burst.  Both  the  half-buried  static  charges  of  the  Dugway 
series  of  tests  and  the  static  charges  of  DIRT  1  had  a  scaling  factor 
of  about  0.03. 

The  fourth  entry  is  the  azimuth  of  the  munition  shell  track.  Azi¬ 
muths  are  measured  clockwise  (toward  the  x  axis)  in  degrees  from  the  y 
axis.  The  azimuth  is  used  in  conjunction  with  the  shape  factors  to 
define  the  initial  main  cloud  shape  and  orientation.  The  shell  azimuth 
input  is  r.ot  required  for  those  bursts  which  are  symmetric  about  the 
vertical  axis  (ie,  for  bursts  with  Cj.  =  Cp) . 

C  Card 

The  C  card  contains  the  transmitter-receiver  information.  A  max¬ 
imum  of  10  transmitter-receiver  pairs  are  permitted,  so  there  can  be 
up  to  10  C  cards. 

The  first  and  second  entries  are  the  frequency  in  GHz  and  the  wave¬ 
length  in  microns  of  the  transmitter- receiver  pair.  Only  one  of  these 
two  inputs  is  required;  the  other  input  is  left  blank.  The  input  choice 
is  for  the  user's  convenience.  Users  working  with  millimeter  waves 
generally  prefer  GHz  frequencies,  while  infrared  users  prefer  micron 
wavelengths. 

The  third  through  eighth  entries  are  the  coordinates  of  the  trans¬ 
mitter  and  receiver.  The  z  coordinate  is  the  actual  z  coordinate  of 
the  transmitter  or  receiver  (unlike  the  burst  coordinate,  where  the  z 
coordinate  is  the  coordinate  of  the  ground  surface).  The  transmitter- 
receiver  coordinates  define  the  sight  path,  which  is  the  straight  line 
path  between  the  transmitter  and  receiver. 
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D  Card 

The  D  card  contains  the  complex  index  of  refraction  information. 
There  should  be  one  D  card  for  each  C  card.  If  there  are  more  C  cards 
than  D  cards,  the  code  automatically  fills  the  missing  D  inputs  with 
default  values.  If  there  are  more  D  cards  than  C  cards,  the  code 
simply  ignores  the  excess  D  cards. 

The  complex  index  of  refraction  at  the  transmitter-receiver 
frequency  is  assumed  to  be 

n  =  nR  -  inT  ,  (61) 

where 

n  =  complex  index  of  refraction 
nR  =  real  part  of  the  complex  index  of  refraction 
n^  =  imaginary  part  of  the  complex  index  of  refraction 

i  =  \A  • 

Hence  all  input  entries  are  positive. 

Tisc  first  and  second  entries  are  for  .he  mode  A  dust  particles, 
the  third  and  fourth  are  for  mode  B  dust  particles,  and  the  fifth  and 
sixth  are  for  the  carbon  particles.  Note  that  these  indices  are  for 
the  airborne  particles.  The  indices  of  in  situ  soil  generally  differ 
from  the  indices  of  airborne  dust  grains.  This  difference  is  due  to 
the  air  and  water  in  the  soil. 

E  Card 

The  E  card  carries  various  soil,  dust,  and  carbon  parameters  and 
mass  partitions.  There  is  only  one  E  card. 

The  first  entry  is  the  bulk  density  of  the  in  situ  soil  in  g  cm 
This  variable  is  used  along  with  the  calculated  apparent  crater  volume 
to  calculate  the  total  mass  of  soil  that  was  in  the  apparent  crater. 
Typical  values  for  soil  density  are  about  1.5  j  cm  J  for  loose  soil 
and  about  2.5  g  cm  J  for  rock.  In  situ  soil  is  assumed  to  consist  of 
dust  grains,  air,  and  water. 
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The  second  entry  is  the  density  in  g  cm  ^  of  the  airborne  dust 
grains.  For  soils  this  grain  density  is  larger  than  the  soil  density; 

-3 

a  typical  grain  density  value  is  2.5  g  cm  .  Nonporous  rock  can  have 
the  same  value  for  the  in  situ  soil  density  and  the  grain  density. 

The  third  entry  is  the  soil  moisture  fraction.  This  is  defined 
as  the  mass  of  water  in  the  soil  divided  by  the  mass  of  the  soil  (in¬ 
cluding  the  water).  The  mass  of  the  solid  dust  grains  is  taken  as 
the  mass  of  the  soil  minus  the  mass  of  the  water. 

The  fourth  entry  is  the  density  of  the  carbon  particulates  in 

-3  -3 

g  cm  .  The  default  value  is  1.5  g  cm 

The  fifth  entry  is  the  carbon  yield  fraction.  One  of  the  combus¬ 
tion  products  from  the  burning  of  the  explosive  is  carbon.  The  car¬ 
bon  yield  fraction  is  defined  as  the  mass  of  the  carbon  produced 
divided  by  the  mass  of  the  explosive.  A  typical  value  for  TNT  is  0.3. 

The  sixth  entry  is  the  ratio  of  mode  A  to  mode  B  dust  mass  in  the 
lofted  cloud.  We  allow  two  types  of  dust  in  the  cloud,  and  this  entry 
specifies  the  relative  importance  of  the  two  types.  If  a  user  wishes 
to  have  only  one  kind  of  dust,  then  this  entry  should  be  set  to  an 
insignificant  number  such  as  10  Remember  that  if  this  entry  is 
left  blank  or  set  to  zero,  the  code  will  automatically  insert  the  de¬ 
fault  value,  which  is  0.25. 

The  seventh  entry  is  the  ratio  of  the  mass  in  the  base  cloud  to 
the  mass  in  the  main  cloud.  Although  the  base  cloud  generally  has 
only  a  small  fraction  of  the  mass  of  the  main  cloud,  the  base  cloud 
can  have  a  large  effect  on  sight  paths  very  near  the  ground  since  it 
is  nonrising.  Typical  estimates  of  this  ratio  are  in  the  range  0.05 
to  O.l;  we  take  0.1  as  the  default  value. 

F  Card 

The  F  card  specifies  the  size  distribution  parameters  for  the  mode 
A  dust  particles.  There  is  only  one  F  card.  At  present  three  types 
of  size  probability  distributions  are  allowed:  log  normal,  power  law. 
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or  hybrid.  The  hybrid  distribution  consists  of  a  log  normal  distribu¬ 
tion  for  particles  with  diameters  from  zero  to  a  .  ;  this  is  then 
joined  to  a  power  law  distribution  for  particles  with  diameters  from 

a  .  to  a  .To  choose  a  log  normal  distribution,  values  are  entered 
mm  max 

for  entries  one  and  two.  To  choose  a  power  law  distribution,  values 
are  entered  for  entries  three,  four,  and  five.  To  choose  a  hybrid 
distribution,  values  must  be  given  for  all  five  entries. 


1',e  ’eg  normal  probability  distribution  is 


Hr.(a) 


1  m )  > 

H-H-arejf 


Q  \  3  <  en 


a  xn  a 


(62) 


where 


a  =  particle  diameter  (microns) 

1*1^ (a )  da  =  fraction  of  the  number  of  dust  particles  with  diam¬ 
eters  between  a  and  a  +  da 
=  mean  particle  diameter  (microns) 

S  =  standard  deviation  parameter. 

The  power  law  probability  distribution  is 


where 


P„(a)  = 


(P 


l)a"P 


(P-D 


■(P-1) 


max 


a  .  <  a  <  a 

min  —  —  max 


(63) 


p  =  power  law  exponent 

a  .  =  minimum  particle  diameter  in  the  power  law  size 

distribution  (microns) 

amax  =  max*raum  particle  diameter  in  the  distribution  (microns). 
The  hybrid  distribution  is 


pH(a)  - 


fClPLN^ 


lc,P  (a) 

2  p  ; 


0  <  a  < 


a  . 


min 


a  .  <  a  <  a 

mm  —  —  max 


(64) 
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where  and  C2  are  normalization  constants. 

The  first  entry  on  the  F  card  is  the  mean  diameter  in  microns  of 
the  log  normal  probability  distribution.  The  second  entry  is  the 
standard  deviation  parameter  of  the  log  normal  distribution. 

The  third  entry  is  the  minimum  diameter  in  microns  cf  the  power 
law  distribution.  The  fourth  entry  is  the  maximum  diameter  in  microns 
of  the  power  law  distribution.  The  fifth  entry  is  the  power  law  ex¬ 
ponent  of  the  power  law  distribution. 

G  Card 

The  G  card  specifies  the  size  distribution  parameters  for  the  mode 
B  dust  particles.  There  is  only  one  G  card.  The  G  card  entries  have 
the  same  definitions  as  the  F  card  entries. 

H  Card 

The  H  card  specifies  the  size  distribution  parameters  for  the  car¬ 
bon  particles.  There  is  only  one  H  card.  The  H  card  entries  have  the 
same  definitions  as  the  F  and  G  card  entries. 

I  Card 

The  I  card  is  the  first  of  two  cards  specifying  the  atmospheric 
parameters  and  the  rising  (main)  cloud  model  parameters.  There  is 
only  one  I  card. 

The  first  entry  is  the  atmospheric  Pasquill  stability  factor, 
entered  as  a  digit  with  the  correspondence  1  =  A,  2=B,  3=C,  4=D, 
5  =  E,  6  =  F.  The  default  value  is  4  (D),  the  neutral  stability. 

The  second  entry  is  the  entrainment  factor  for  the  buoyant  rising 
cloud  model.  Normally  this  entry  is  left  blank  and  the  code  uses  the 
default  value  of  1. 

The  third  entry  is  the  drag  coefficient  for  the  buoyant  rising 
cloud  model.  Normally  this  entry  is  also  left  blank,  thereby  specify¬ 
ing  the  default  value  of  0.8. 


The  fourth  entry  is  the  air  density  in  g  cm  at  (ground  level.  If 
this  entry  is  left  blank,  the  code  assumes  the  atmosphere  is  the  U.S. 


Standard  atmosphere  and  calculates  the  ground  level  density  as 

Hr 


A  S  A 

.A  “AO  G 


8400 


(65) 


where 


AO 


s  =  air  density  at  ground  level  (g  cm  ■*) 

=  U.S.  Standard-  Atmosphere  air  density  at  mean  sea  level 


~o 


=  1.225  y  10  g  cm 
H.  =  elevation  above  mean  sea  level  of  the  ground  level  (m). 

The  fifth  entry  is  the  elevation  of  the  ground  level  above  mean 
sea  level  '.n  meters.  This  entry  is  only  used  to  calculate  the  air 
density  at  ground  level.  Thus  if  the  user  specifies  the  fourth  entry, 
p^,  then  this  entry  is  not  used  in  the  code. 

The  sixth  and  seventh  entries  are  the  air  temperature  at  ground 
level  and  the  temperature  lapse  rate  m  kelvins  and  Kelvins  per  meter, 
respectively.  At  present  these  entries  are  not  used  in  the  code  and 
need  not  be  specified.  In  the  future  we  expect  these  variables  to 
enter  into  the  models  for  main  cloud  stabilization  and  buoyant- 
atmospheric  diffusion  crossover.  Anticipating  the  future  model 
development,  wc-  have  reserved  these  input  slots. 

The  eighth  entry  is  the  altitude  of  the  air  temperature  inversion 
layer  in  meters  above  ground  level .  Inversion  layers  are  effective 
barriers  for  rising  dust  clouds.  The  code  assumes  the  main  dust 
cloud  cannot  rise  above  the  inversion  layer.  Hence  at  present  the 
temperature  inversion  layer  is  the  stabilization  altitude  for  the 
main  dust  cloud. 


J  Card 

The  J  card  is  the  second  of  the  two  cards  specifying  the  atmos¬ 
pheric  parameters.  There  is  only  one  J  card. 
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! 

The  first  entry  is  the  mean-  wind  velocity  in  meters  per  second. 

The  second  entry  is  the  reference  altitude  in  meters  at  which  the  mean 
wind  velocity  is  measured.  The  third  entry  is  the  power  law  exponent 
of  the  vertical  profile  of  the  mean  wind  velocity.  The  wind  speed  as 
a  function  of  altitude  is  assumed  to  be 

PM 

'M®  -  w(^)  " S_I  -  (66) 

where 

_■» 

v.,(Z)  =  mean  wind  velocity  at  altitude  Z  (ms  *) 

M  -1 
v^(ZR)  =  mean  wind  velocity  at  reference  altitude  Z^  (m  s  ) 

P  =  power  law  exponent. 

The  fourth  entry  is  the  azimuth  of  the  mean  wind  velocity  vector  in 
degrees,  measured  clockwise  from  the  y  axis.  , 

K  Card 

The  K  card  contains  the  particle  size  group  information.  A  maximum 
of  50  size  groups  are  permitted,  so  there  can  De  up  to  seven  K  cards. 
The  entries  are  the  maximum  diameters  in  microns  of  the  particles  in 
the  size  groups.  The  diameters  are  entered  in  ascending  order.  The 
first  size  group  includes  particles  of  diameter  zero  up  to  the  diam¬ 
eter  of  the  first  entry.  The  second  size  group  includes  particles 
with  diameters  from  the  first  entry  to  the  second  entry. 

7 

A  given  size  group  includes  all  particles  of  all  materials  which 
have  diameters  within  the  specified  diameter  ranges.  T,.us  a  particular 
size  group  can  have  one,  two,  or  three  types  of  the  different  material 
particles  in  it,  depending  upon  the  size  distributions  of  the  three 
materials. 

L  Card 

,  The  L  card  contains  the  calculation  times  in  seconds.  All  bursts 
are  assumed  to  be  detonated  at  time  zero.  A  maximum  of  25  calculation 
times  are  allowed,  so  there  can  be  up  to  four  L  cards  (the  last  card 


having  only  one  entry) .  The  input  times  must  be  positive  and  arranged 
in  ascending  order. 

M  Card 

The  M  card  contains  the  print  control  option.  The  code  computes 
the  propagation  along  each  sight  path  by  summing  the  effects  from 
each  particle  size  group  for  each  material  for  each  burst.  Unless 
suppressed,  the  code  will  automatically  print  out  the  details  of  each 
contributing  effect.  This  detailed  printing  can  produce  a  consider¬ 
able  amount  of  output  Which  may  not  be  of  interest  to  the  user.  A  1 
entered  in  column  10  of  card  M  will  suppress  the  printing  of  the  de¬ 
tails.  Since  the  default  value  of  the  print  control  option  is  zero, 
the  code  will  print  the  detailed  output  if  card  M  is  omitted. 

Naturally  the  summary  output  is  printed  in  all  cases. 


SECTION  4 
SAMPLE  PROBLEM 


Figure  4  shows  the  input  data  cards  for  the  sample  problem.  We 
have  a  single  360-lb  TNT  burst  at  the  origin.  There  is  a  single 
transmitter-receiver  pair  using  a  wavelength  of  10.35  microns.  The 
data  chosen  correspond  to  test  event  B8  of  the  DIRT-1  serias  of 
tests  at  White  Sands  Missile  Range,  New  Mexico  (Reference  6).  Hie 
actual  test  consisted  of  three  120-lb  TNT  charges  in  a  line  with  15 
meters  spacing  between  charges.  The  three  individual  dust  clouds 
rapidly  (in  less  than  a  second)  merged  to  form  one  large  dust 
cloud.  We  simulate  this  one  large  dust  cloud  in  the  code  by  a 
single  360-lb  burst  and  by  increasing  the  entrainment  factor  (second 
entry,  card  I)  to  a  value  of  2. 

Figure  5  shows  the  output  generated  by  the  code,  which  first 
writes  out  the  input  data.  Next  the  code  calculates  the  propagation 
constants  for  each  significant  size  group  for  each  material,  assuming 
no  mixing  of  particles  between  size  groups.  After  the  unmixed  data 
are  printed  out,  the  propagation  constants  are  recomputed  assuming 
mixing  of  the  size  groups;  the  mixed  data  are  then  printed.  Next  the 
initial  (t  =  0+)  parameters  of  the  main  cloud  are  computed  and  printed 
out.  Then  the  initial  dust  and  carbon  masses  lofted  into  the  main  and 
base  clouds  are  written  out.  This  completes  the  preliminary  calcula¬ 
tions.  For  each  calculation  time  the  propagation  along  each  sight 
path  is  computed  and  printed  out,  first  the  detailed  results  (unless 
suppressed  by  the  print  control  option)  and  then  the  summary  results. 
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Figure  4.  Input  cards  for  sample  problem. 
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Figure  5.  ASL-DUST  output  for  sample  problem. 
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_I  C  3 

* 

■< 

■< 

•< 

«< 

-< 

o  O  X 

X 

ffi 

CD 

s 

X 

» 

X 

X 

X 

lS.il  Uilnl  . . .  ■ 


SECTION  5 
CODE  LISTING 


In  this  section  we  present  the  FORTRAN  card  source  listings  of 
the  ASL-0UST  code.  In  general,  each  routine  defines  the  principal 
FORTRAN  mnemonics  of  the  variables  used  within  the  routine.  Routine 
INPUT  defines  all  input  mnemonics.  Comment  cards  are  interspersed 
throughout  the  routines  as  a  programming  aid. 
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IBB#** 


1 

a 

C 

EXECUTIVE  ROUTINE  FOR  1m£  ASL  MUNITION  OUST  CLOUD  MUOEl 

c 

5 

t 

this  is 

The  EXECUTIVE  ROUIINE  for  the  cumputer  code  program  for 

a 

c 

C 

f 

the  asl 

MUNITION  DUST  CLOUD  MODEL  DOCUMENTED  IN 

3 

6 

c 

MODELS  FOR  MUNITION  DUST  CLOUDS 

7 

c 

BY  JAMES  H  THOMPSON 

8 

t 

ASL-CR-79-0005-2,  (GF78TMP-99  ),  GENERAL  ELECTRIC  * 

9 

c 

TEMPO,  NOVEMBER  22,  t9?B 

10 

c 

1 1 

c 

ASL-DUS1.  A  TACTICAL  BATTLEFIELD  DUST  CLOUD  AND 

12 

c 

PROPAGATION  code 

1  JL 

C 

VtiLUMg  i.  MODEL  FORmULAUONS 

1C 

t* 

VOLUME  2.  USERS  MANi,AL 

IS 

c 

«Y  JAMES  H,  THOMPSON 

1  6 

r 

r 

GF80TMP-S,  GENERAL  fLFCTRIC  -  TE"PO,  JANUARY  1980 

18 

u 

c 

1  9 

r 

20 

c 

SEE  SUBROUTINE  INPUT  FOR  THE  DEFINITIONS  OF  VARIABLES  IN  THE 

21 

r 

Cl  NO  11 

-  CINTP7  LAHtLtP  COMMON  AREAS.  SEE  SUBROUTINE  DEPTH  FOR 

?z 

C 

VARIABLES  IN  CDERIH  LARC^F.O  CoMMON 

21 

c 

2<i 

Common 

/  CINPT1  /  WC10),  FH(lo»,  C  T  C 1 0  > ,  CP(10),  CV(IO),  XB(10), 

2S 

1 

YBUO),  7B{  t  0  ) ,  DOB  (10),  FCM(IO),  ACV(IO), 

26 

2 

PhIBOGCIO) 

27 

Common 

/  C INPT2  /  FRFD(tO),  XlAMDATIO),  XT(IO),  YTtlO),  2TU0), 

28 

i 

X«(10),  YR(jO),  ZH(IO) 

29 

COMMON 

/  CINPT1  /  XHAR(Io),  XnAI(IO),  XNftS(lO),  XNBI(IO),  XNCR(IO) 

10 

1 

,  X.NCniO),  AhA,  SA,  AMINA,  AMAXA,  PA,  AHH,  SB, 

11 

? 

A M I N  B ,  AHAXp,  PB,  AMC,  $C ,  AMJNC,  AMAXC,  PC 

12 

COMMON 

/  ClNPTR  /  RHOC,  ROOD,  RHOC,  FH20,  XLC,  HHab,  RBASE 

11 

COMMON 

/  CINPT5  /  PSF,  ALPHA,  CDRaG,  RHUA,  LLEVG,  TAIR,  TLAP3E, 

lc 

I 

ALT  I V,  VWlND,  ALTW,  PVW,  PH I MOG 

IS 

Common 

/  CINPT6  /  NK,  N'lG,  NR  T ,  NTJMt,  NPROb,  1PRINT 

16 

COMMON 

/  CINPT7  /  OGR01‘D(50) ,  TlMr.(25) 

17 

Common 

/  CDEPTh  /  T Ao£w (10,10),  TAUSH( 10,10),  T AUAW ( 1 0, 1 0 ) , 

18 

1 

TAllE(lO),  TaUS(IO),  TAUA(IO) 

19 

c 

SET  DEFAULT  TiMfS 

CO 

DIMENSION  IFLK2S) 

01 

DATA  TFLT  /  2.,  a.,  6.,  8,,  10.,  12.,  10.,  16.,  18.,  20.,  22.5, 

c? 

i 

28.,  27. 5,  10.,  12.5,  15.,  17.5,  «0.,  85.,  50.,  55., 

0} 

t>  0  •  f  ?0,»  A  0  •  r  1  0  ft  «  / 

u« 

c 

“S 

c 

St T  DEFAULT  DIAMETERS  of  SIZF  GROUPS 

06 

DIMENSTON  r>GFtT(Sni 

«7 

DATA  nr.FLT  /  s.,  10.,  ?0.,  10.  00.,  so.,  60.,  70.,  80,,  90., 

08 

1 

mo.,  ms.,  no.,  ns.,  mo.,  i25.,  no.,  115.,  mo.. 

06 

? 

t«5.,  150.,  155.,  1 60 . ,  165.,  170.,  175.,  180.,  185., 

SO 

3 

190.,  195.,  200.,  210.,  220.,  210.,  2«Ot,  250,,  260., 

51 

<1 

270.,  280.,  ?9o.,  100.,  150.,  uOO.,  950.,  500.,  bOO., 

52 

S 

750.,  1000.,  5o0o.»  mooo.  / 

SI 

c 

jo 

c 

INPUT  - 

OUTPUT  TAPF  DESIGNATION 

5S 

COMMON 

/  IAPE  /  I1APF,  JTAPE 

56 

c 

the  INPUT  AND  OUTPUT  TAPE  NUMrFRS  ARE  SPECIFIED  BY  ASSIGNING 

57 

c 

values 

Til  THF  VARIABLES  ITAPE  and  JTAPF,  MF  SPEC  T I VEL  Y ,  THESE  »RE 

58 

c 

PRESFntly  SET  TO  5  AND  6,  BUT  Can  EaSTLY  BE  CHANGED  BY  RESPECIFYING 

70 


59 

c 

TMf  FOLLOWING  TWO  ST* 

60 

IlAPf  s  5 

61 

JTAPf  *  6 

62 

c 

65 

c 

INITIALIZATION  SECT  10 

64 

RHOG  x  1.5 

65 

81109  *  2.5 

66 

FH20  r  0.15 

67 

A«A  =  1. 

6ft 

SA  =  2.2 

69 

Amina  s  o. 

70 

amaxa  =  o. 

71 

PA  =  o. 

72 

AMR  c  20. 

75 

SR  s  2. 

7a 

AMINR  I  t80. 

75 

AHAXft  x  1.E4 

76 

PR  *  a. 

77 

Ahc  x  0,5 

79 

SC  =  2. 

79 

AM1NC  *  0. 

ftO 

AHAXC  x  0, 

81 

PC  s  0. 

82 

RHOC  s  1.5 

85 

FLO  *  0.5 

8a 

NOG  t  50 

85 

0(1  1  I  a  1,  50 

86 

OGPOUPU)  s  OGFLT(I) 

67 

1  CONTINUE 

88 

NUT  r  1 

89 

FRf-Oni  8  1.E5 

90 

XL»M0A(1)  =  5. 

91 

XT (1 >  8  500. 

92 

XT ( 1 1  a  50. 

95 

iTfl)  8  2. 

94 

XR( 1 )  8  -  500. 

95 

VR(1J  *  50. 

96 

ZR  f  1 T  s  2, 

97 

XNARd)  8  1.66 

98 

XNA I ( I )  1  1.6F-2 

99 

XNflWdl  *  1.66 

100 

XMRI(l)  8  1.6E-2 

101 

XNCR(11  8  2. 

102 

Xficini  *  l. 

105 

PSF  x  a . 

104 

ALPHA  8  1. 

105 

CORAG  *  0.8 

106 

RHOA  =  1.225F-5 

107 

ElfVG  s  0. 

108 

TAIR  s  2R8. 

109 

(LAPSE  =  -  9.8F-5 

110 

»LTIV  8  1.E5 

HI 

VaiNO  *  5. 

112 

phikog  *  0. 

115 

Rmah  =  0.25 

114 

RRASF  x  0.1 

115 

NTIME  8  25 

116 

00  2  I  *  1,  NTIME 

71 


*  IflTCI) 

2  continue 
NPR08  *  0 
tPRlNr  a  0 

R£AO  THE  INPUT  FOR  f HJS  PRDBLfH 
10  CALL  INPUT 

fn-  f IIP£  0F  HATEHI*L»  CALCULATE  THE  PROPAGATION  PARAMETERS 
PO^EAC^CONTRieUTINC  SIZE  GRnUP  FOR  EACH  FREQUENCY 

INITIAL  PROPERTIES  OF  THE  OUST  CLOUDS  FOR  EACH  BU 

TI“E  DEPENDENT  CALCULATIONS 
LOOP  OV£c  The  TINES 

on  PO  IT  a  I,  NTJHf 

T  *  TlME(il) 

ZERO  OUT  IHE  optical  depth  PARAMETERS 
DO  25  IPT  s  I,  NRT 

TAUEflRn  *  0. 

TA'S(IRT)  a  0. 

TAUA(IOT)  *  0. 

00  25  In  a  1,  NH 
TAUr-{  in,  IRT)  =  o. 

TAIi$n(  IN,  IRT  j  z  0, 

TAUAK(lN,If  )  s  o, 

25  CONTINUE 

loop  over  ;he  bursts 
on  50  I-  a  I,  nw 
I«C  a  IN 

ss K  ;is,;s  x;;cesc"*''  "*  *«•  “•*  «« <* 

CALL  TIPECOC  I,  INC  ) 

LOOP  over  the  size  groups 

oo  HP  JUG  a  i,  nog 
IDGC  a  I  DC 

SIZETGROUPlHE  *N0  BURST  Fl>>0  THE  NATION  AND  GEOMETRY  OF  THE 
CALL  TIHECGt  T,  INC,  IOGC  ) 

Lnnp  over  the  receiver  -  transmitter  pairs 
00  JO  IRT  a  I,  NRT 
IRTC  I  IRT 


0lmsT'  *ND  SIZp  GROUP  c  IND  THE  MASS  PENETRATEO 

EAC:6pmRULHI8NEmrsijEIGROr,CpUVtH  * 


vACH  PATE^JAL  in  The  SIZE  GPOiiP 
CAtL  PATP{  2KC#  IDGC »  JRTC  ) 


•75  C  FOR  THIS  TIME,  BURST  AND  SIZE  GROUP  FIND  THE  EXTINCTION, 

•76  C  SCATTERING  AND  ABSORPTION  OPTjCAL  DEPTHS  ALONG  THIS  PATH  DUE  TO 

•77  C  EACH  MATERIAL  IN  THE  SIZE  GROl|P.  SUH  THE  CONTRIBUTIONS 

•7S  CALL  OFPTHI  T,  INC,  IDGC.  IRTc  ) 

179  C 

•BO  30  CONTINUE 

let  c 

182  00  CONTINUE 

1B3  C 

ISO  50  CONTINUE 

1 95  C 

186  60  CONTINUE 

1«7  C 

188  C 

•89  C  THIS  PROBLEM  IS  COMPLETED.  00  NEXT  PROBLEM 

190  GO  TO  10 

191  C 

192  END 
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1 

subroutine 

INPUT 

2 

3 

c 

c 

this  routine 

HEADS  THE  INPUT  FOR  EACH  PROBLEM,  THEN  WRITES  THE 

0 

5 

c 

c 

INPUT  VALUES 

UUT 

6 

7 

c 

c 

DEFINITIONS  of  VARHBLE3  IN  LABELED  COHHON 

ft 

9 

c 

c 

MI*! 

s 

equivalent  tnt  yield  of  burst  iw  tlbs  inti 

10 

c 

FH(JW) 

3 

FRACTION  OF  yield  APPEARING  AS  HYDRODYNAMIC  ENERGY 

1  1 

. 

FOR  BUR‘.T  !W 

12 

c 

C  T  {  1  *  ) 

.1 

INITIAL  ‘AIN  CLO'lO  shape  FACTOR  FOR  THE  DIRECTION 

13 

c 

ALONG  the  shell  TRACK  for  BURST  lw 

'  a 

r 

c?a»> 

S 

initial  tajn  cloud  shape  factor  for  the  direction 

IS 

r 

pcpPENDICt'LAP  TO  the  SHELL  TRACK  FOR  BURST  ’W 

'.b 

r 

'vt ;w> 

s 

INITIAL  HAIN  CLOuD  SHARE  FACTOR  for  THE  VERTICAL 

1  7 

C 

DIRECTION 

If 

c 

!-; 

z 

X  COORDINATE  OF  rv:  GROUND  SURFACE  at  BURST  IN 

i  9 

c 

fHETEAS) 

20 

c 

rB(’w) 

s 

r  COORDINATE  OF  THE  GROUND  SURFACE  AT  BURST  JH 

2! 

c 

(M£T£S31 

22 

c 

ZR(IW) 

X 

Z  COORD I NA  £  OF  i N£  GROUND  SURFACE  AT  BURST  I« 

23 

r 

<H£TC»S) 

2a 

C 

DCIBIIW) 

s- 

D£OiH  OF  BURST,  IE,  DISTANCE  BELOW  GROUND  SURFACE  Or 

25 

C 

center  o f  gravity  of  burst  iw  (meters) 

2b 

c 

FCHi (W) 

r 

fraction  OF  the  APPARENT  CRATER  HASS  OF  BURST  iw  that 

27 

*_ 

is  lofted  into  The  air 

28 

c 

*CV{ IN) 

s 

APPARENT  CRA'ER  VOLUME  SCALING  FACTOR  FOR  BURST  IN 

29 

r 

(CUBIC  meters  PEP  (LB  TNT)«M.I!1  ) 

30 

C 

PHIBOCTIN) 

z 

AZIMUTH  OF  SHELL  track  OF  BURST  Iw  ( DEGREES, 

3! 

c 

MEASURED  CLOCKWISE  FROM  the  Y  Axlft) 

32 

c 

SREO(IRT) 

3 

FREOUENCY  of  TRANSMITTER  -  RECEIVER  Pair  IRT  (GHZ) 

33 

c 

XL4*'DA(  jRTlt: 

WAVE! ; NOTH  OF  TRANSMITTER  -  RECEIVER  PAIR  IRT 

3a 

c 

(MICRONS) 

35 

c 

XTtiu;  i 

3 

X  COORDINATE  OF  TRANSMITTER  IRT  (METERS) 

36 

c 

TTT1F 1 ) 

z 

Y  COUROINA-f  OF  TRANSMITTER  IP’  (MEYERS) 

37 

c 

ZT(IST) 

r. 

Z  COORDINATE  OF  TRANSMITTER  IRT  <k£T»S31 

38 

c 

XR ( 1 9  T ) 

c 

X  COORDINATE  OF  RECEIVER  IRT  (HETERS) 

39 

c 

YQf JRT) 

o 

T  COORDINATE  OF  RECEIVER  IRT  (METERS) 

00 

c 

ZR(IRT) 

3 

Z  COORDINATE  OF  RECEIVER  IRT  (METERS) 

01 

c 

XNAR(IRT) 

c 

REAL  PART  OF  THE  COMPLEX  INDEX  OF  REFRACTION  FOR  HODE 

«2 

r 

\  OUST  PAPTIClFc  »t  t»£  WAVELENGTH  OF  TRANSMITTER  - 

03 

c 

.CF.IVEO  IRT 

00 

c 

XNAKIRT) 

3 

IMAGINARY  part  of  The  complex  Index  of  REFRACTION  FOR 

05 

c 

MORE  A  DUST  PARTICLES  AT  THE  WAVELENGTH  OF 

06 

c 

TRANSMITTER  -  RECEIVE'  IRT 

07 

c 

X98R( IOT) 

3 

PEAL  PART  OF  The  COMPLEX  INDEX  OF  REFRACTION  FOR  HOOE 

08 

c 

R  OUST  P.RTICLES  AT  THE  WAVELENGTH  OF  TRANSMITTER  - 

09 

c 

RECEIVER  IRT 

50 

c 

XNBI f I RT ) 

z 

IMAGINARY  -'APT  Or  THE  COMPLEX  INDEX  of  RETRACTION  FOR 

51 

c 

MODE  B  DUST  PARTICLES  at  the  WAVELENGTH  of 

52 

r 

TRANSMITTER  -  RECEIVER  IKt 

53 

c 

i*lCt(jPT) 

r 

REAL  PART  OF  The  complex  INDEX  OF  REFRACTION  FOR 

5o 

r 

CARBON  PARTICLES  ‘I  THE  WAVELENGTH  OF  TRANSHITTER  » 

55 

r 

RFC!  IVER  T RT 

56 

C 

XNCKIRT) 

3 

IMAGINARY  PART  Or  THE  COMPLEX  INDEX  OF  REFRACTION  FOR 

57 

C 

CARBON  PARTICLES  AT  Th£  WAVELENGTH  OF  TRANSMITTER  - 

5ft 

C 

RECEIVER  IRT 

74 


59 

C 

AH* 

=  MEAN  OlAMETER  of  THE  LOG  NORMAL  DISTRIBUTION  FOR  MUDE 

60 

c 

A  OUST  PARTICLES  (MICRONS) 

61 

c 

SA 

s  STANDARD  DEVIATION  PARAMETER  OF  THE  LOG  NORMAL 

62 

c 

DISTRIBUTION  FOR  MODE  A  DUST  PARTICLES 

63 

c 

AM  I  HA 

i  MINIMUM  DIAMETER  OF  THE  POKER  LAM  DISTRIBUTION  FOP 

66 

c 

MODE  A  DUST  PARTICLES  (MICRONS) 

65 

c 

amaxa 

*  MAXIMUM  DIAMETER  OF  THE  POKER  LAH  DISTRIBUTION  FOR 

66 

c 

MODE  A  OUST  PARTICLES  (MICRONS) 

67 

c 

AHR 

a  MEAN  DIAMETER  OF  THE  LOG  NORMAL  DISTRIBUTION  FOR  H1JDE 

68 

c 

B  OUST  PARTICLES  (MICRONS) 

69 

c 

SB 

=  STANOARD  deviation  parameter  OF  THE  LOG  NORFAL 

70 

c 

DISTRIBUTION  FOR  MUDE  B  DUST  PARTICLES 

71 

c 

AMI  NR 

=  MINIMUM  DIAMETER  OF  THE  POKED  LAK  0ISTRI1U-T  ION  FOR 

72 

c 

MODE  B  DUST  PARTICLES  (MICRONS) 

73 

c 

AHAXB 

s  MAXIMUM  DIAMETER  OF  the  PrjxER  LAM  DISTRIBUTION  FOR 

76 

c 

MODE  B  OUST  PART  tCLES  (MICRONS) 

75 

c 

AMC 

s  MEAN  DIAMETER  OF  THE  LOG  NORMAL  DISTRIBUTION  FOR 

76 

c 

CARBON  PARTICLES  (HICRUNS) 

77 

c 

SC 

o  STANDARD  DEVIATION  PARAMETER  OF  THE  LOG  NORMAL 

78 

c 

DISTRIBUTION  FOR  CARBON  PARTICLES 

79 

c 

AMINC 

=  MINIHUM  DIAMETER  OF  the  poker  lam  DISTRIBUTION  FOR 

80 

c 

CARBON  PARIICLES  (MICRONS) 

81 

c 

AMAXC 

*  MAXIMUH  DIAHETER  OF  the  POKER  lam  DISTRIBUTION  FOR 

82 

c 

CARBON  PARTICLES  (MICRONS) 

83 

c 

flHOC 

3  BULK  DENSITY  OF  JN  SITU  SOIL  (CM/CM3) 

86 

c 

RhOO 

a  BULK  OENSITT  OF  THE  LOFTED  DUST  GRAINS  (GH/CH3) 

65 

c 

RhOC 

*  BULK  DENSITY  O'-  THE  CARBON  PARTICLES  ( GH/CHS ) 

86 

c 

FM20 

s  SOIL  MOISTURE  FRACTION  (Mass  OF  MATER  IN  SOIL  OIVIDED 

«7 

c 

BY  TOTAL  MASS  OF  SOIL  INCLUDING  MATER) 

88 

c 

*LC 

s  CARBON  yield  FR.6f.TUN  (LB  OF  CARBON  PRODUCED  PER  LB 

89 

c 

OF  TNT) 

90 

c 

RHA8 

a  RATIO  OF  THE  MaSs  Op  MODE  A  DUST  PARTICLES  TO  THE 

91 

c 

HASS  OF  MODE  B  DuST  PARTICLES  IN  THE  LOFTED  CLOUD 

92 

t 

RR*SE 

=  RA1IU  OF  THE  MASS  IN  THE  BASE  CLUUD  TO  THE  HASS  IN 

93 

c 

THE  MAIN  CLOUD 

96 

c 

PSF 

3  ATMOSPHERIC  PASOiiILL  STABILITY  FACTOR  (1  3  A,  2  s  8, 

95 

c 

i  s  C,  6  t  0,  5  «  E) 

96 

c 

ALPHA 

3  AIR  ENTRAINMENT  FACTOR  fur  RISING  CLOUD  MODEL 

97 

c 

corag 

3  DRAG  COEFFICIENT  FOR  RISING  CLOUD  MODEL 

98 

c 

PHflA 

3  AMBIENT  AIR  DEnStTY  AT  GROUND  LEVEL  (GM/CM3) 

99 

c 

ELEVG 

=  ELEVATION  OF  GROUND  LEVEL  (METERS) 

1O0 

c 

TAIH 

s  aJR  TEMPERATURE  at  GROUND  LEVEL  (DEGREES  K) 

101 

c 

tlapse 

s  TEMPERATURE  L*PSf  RATE  (DEGREES  K/METER) 

102 

c 

aiMV 

r  ALTITUDE  ABOVE  GROUND  OF  INVERSION  LAYER  (METERS) 

103 

c 

VwJNO 

s  MEAN  KINO  VELOCITY  AT  REFERENCE  ALTITUDE (HETERS/S) 

100 

c 

ALTN 

r  kino  reference  altjtude  (meyers) 

105 

c 

PVK 

=  POKER  lam  EXPONENT  OF  VERTICAL  FROFILE  OF  MEAN  KIND 

106 

c 

VELOCITY 

107 

c 

PHImOS 

*  AZIMUTH  OF  HEAN  KIND  VELOCITY  (MEASURED  CLOC.KMISE 

108 

c 

FROM  THE  Y  AXIS)  (  DEGREES) 

109 

c 

Km 

s  NUMBER  OF  BURSTS 

110 

c 

NOG 

s  NUMBER  OF  PARTIClE  DIAMETER  SIZE  GROUPS 

111 

c 

NRt 

*  numrer  of  transmjtter  -  receiver  pairs 

112 

c 

N!  IHf 

*  NUMBER  of  CALCULATION  times 

113 

c 

N“RU8 

=  NUMBER  OF  THE  PRESENT  CASE  BEING  CALCULATED 

116 

c 

IPRJn; 

r  PRINT  CONTROL  OPTION  (0  a  PRINT  DETAILS  OF  PATH 

115 

c 

INTEGRATION,  1  *  PRINT  unly  Summary  of  THE  PATH 

116 

c 

INTEGRATION) 

75 


in 

118 

119 

120 
121 
122 
125 
129 
125 
120 
127 
120 
l?o 

15C- 

131 

132 
153 
139 
155 


C 

C 

C 

C 

C 


DGR0UP(I0G)=  HAXIMUH  DIAMETER  OF  THE  PART  1CLE3  IN  THE  IOG  SIZE 
GROUP  (MICRONS) 

TIMECITJ  «  THE  IT  CALCULATION  TIME  (SECONDS) 


COMMON  /  CINPT1 

1 

2 

Common  .  CInptz 
i 

CU"HON  /  C1NPT3 

1 

2 

C0M,,ON  /  ClNPll 
COMMON  /  CINPT5 

1 

COMMON  /  C,U'T6 
COMMON  /  CIHPT7 
common  /  TAPE  / 


/  w(10),  FH(lo)»  C T ( 1 0 ) -  CP(10),  CV(10),  XB(10), 
YB(IO),  ZB ( f  0 ) ,  DOB (10)#  FCM(tO).  ACV(IO), 
PHIBDG( 10) 

/  FREO(IO),  XlAMOA(IO),  XT(IO),  YT(10),  ZT(10)» 
XR(iO>,  YR( 1 0 ) #  ZR( 10) 

/  XNAR(IO),  XllAIUO),  XNB’  -10),  XNBI(IO),  XNCR(IO) 
,  xNcidOf  aha,  s»,  amina,  ahaxa,  pa,  amb,  sb, 
A«INB,  AHAXb,  pj.  AMC,  SC,  AHINC,  AMAXC,  PC 
/  RHCG,  RHOD,  RilCC,  FH20,  XLC,  RHAB,  RBASE 
/  PSF,  ALPHA,  CORAO,  RHOA,  ELEVG,  TAIR,  TLAP3E, 
ALTIV.  VWINd»  ALTm,  PVH,  PHIWOG 
/  NX,  NOG,  NfiT»  NTr.ME#  NPROB,  iprint 
'  OGROUP(50),  T1HEC25) 

ITAPE,  J7APE 


lib  C 

137  DIMENSION  INDEX (50,  h?$p(6),  7(8),  CA0D(!5) 
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OAT 

INDEX 

/  \t 

2,  3, 

o.  5, 

8, 

7,  S 

9, 

1C, 

11, 

12, 

13. 

19, 

15, 

,39 

1 

to# 

17.  18 

,  IP. 

2fl. 

21, 

22, 

23, 

20, 

25, 

26, 

27. 

26, 

190 

2 

2<># 

30,  31 

.  32, 

33, 

30, 

35, 

36, 

37, 

38, 

39, 

90, 

«1, 

19! 

3 

*•2# 

93,  09 

,  95, 

06, 

07, 

08, 

09, 

SO 

/ 

192 

p  LTA 

hpsf 

/  1  H«z 

!h6. 

1HC, 

IHC, 

1  HE 

1HF 

/ 

193 

SA  1  A 

CARD 

/  1  HA 

IMS, 

1HC, 

IHq, 

IHE, 

IHF 

,  1HG, 

1HH, 

1HI 

1HJ 

,  1HK, 

199 

1 

1 HL 

1HM, 

1  HN  , 

1H0 

/ 

•3$ 

DATA 

Blank 

/  !H 

/ 

,  16  C 


197 

lofi 

ia9 

150 

151 

152 

153 
15c 

155 

156 

157 
153 

159 

160 
1  6  1 
162 
163 

169 

165 

166 

167 

168 
\  69 

170 

171 

172 

173 
179 


ncaro  *  0 

HA  >  1 
MB  »  0 
NC  *  0 
NJ  *  0 
NK  3  0 

c 

C  read  next  Input  card 

1  rfsdutape,  2)  XCARD,  (  X(J),  J  3  1,  8  ) 

2  FORMAT (  A 1 ,  E9.0,  7E10.0  ) 

C 

c  check  jf  first  column  »s  blank.-  >micm  s-g.'Ifies  end  of  input  data 

c  FUR  THIS  PROBLEM 

!F(  XCARD  .HE.  BLANK  )  GO  U)  6 

C 

C  CHECK  • F  END  OF  JOB  {  ThO  8LA|9K  CARDS  IN  A  ROx  ) 

IF (  NCAHD  ,E0.  0  )  STOP 

C 

C  :-»UT  HAS  BEEN  REAS,  SFT  COUNTERS,  FILL  IN  ANT  DEFAULT  VALUES 

IF  (  N»  ,(.I,  o  )  NX  =  NA 
I F  (  N'C  ,CT.  0  )  NRT  =  >.'C 

IF (  v-  ,GT.  0  )  NQG  *  NJ 

IFf  UK  ,GT.  0  )  NTJME  =  NK 

IF (  WK  ,E0,  0  )  GO  TO  1 

NP°OB  k  NPRQB  ♦  1 

C 

C  CHECK  IF  IHEPE  ARE  MORE  GROUP  A  SETS  THAN  GROUP  B  SETS,  IF  SO  FILL 

C  IN  REST  OF  GROUP  3  SE-S  WITH  o! FAULT  VALUES 
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NB1  :  NB  t  | 

NENO  3  N8  *  NO  IF 
00  J  NX  NR  1 ,  NENO 
008(N)  =  0. 

FCM(N)  *  0.25 
ACV(N)  =  0.05 
PHIBDGIN)  s  0. 

J  CONTINUE 

CHECK  IF  THERE  ARE  HORE  GROUP  C  SETS  THAN  GROUP  0  SETS.  IF  SO  FILL 
IN  REST  OF  GROUP  D  SETS  NITH  DEFAULT  VALUES 
<1  NO  IF  s  NRT  -  NO 

IF (  NO  IF  .LE.  0  )  GO  TO  100 

NO!  3  NO!  ♦  1 

NENO  3  NO  ♦  NOIF 

00  5  N  =  NO  1 .  N£NO 

XNAR(N)  =  1.66 

KNAI(N)  3  l.6£*2 

XN8R(N}  *  1.66 

XNBKNT  *  1.6E-2 

XNCRfNJ  =  J. 

XNCI(N)  3  1. 

s  continue 

HRITF  OUT  THE  INPUT  OATA  FOR  THIS  PROBLEM 
GO  TO  100 


Go  TO  THE  APPROPRIATE  INPUT  GROUP.  IF  No  VALUE  IS  PROVIOEO  FOR  A 
PARAMETER,  USE  DEFAULT  VALUE 

6  00  7  If.RO  «  t,  IS 
I  s  KARO 

IF f  XCARO  .EQ.  CARO(I)  )  GO  To  * 

7  CONTINUE 
GO  TO  1 

8  NC*RO  s  NCARO  ♦  I 

GO  T0(  10,  IS,  20,  30,  <10,  «s;  08,  SO,  55,  60,  65,  70,  80  ),  I 

input  group  a,  yield,  hydro  fraction,  shape  factors,  burst 
coordinates 

10  IF (  X(1)  ,LE»  0.  )  GO  TO  I 
NA  3  NA  ♦  1 
H(MAj  3  XU) 

FH(NA)  3  O.s 

IF C  x(2)  . GT.  0.  )  FH(NA)  3  X(2) 

CT(NA)  s  1. 

IF (  X(3)  .GT.  0.  )  CT(NA)  r  Xt3) 

CP(NA)  3  1, 

If(  X(O)  .GT.  0.  )  CP(NA)  *  X(O) 

CV(NA)  3  1. 

IF C  X(S)  .GT,  0.  )  CV(NA)  3  Xf 5) 

XH(NA)  3  XI6) 

YBTNA)  x  X(7) 

7B ( NA )  s  X  C8  j 
GO  TO  1 
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C 

INPUT  GROUP  8,  OEPTH  OP  BURST,  FRACTION  OF  APPARENT 

HASS  LOFTED, 

250 

C 

LOADING  FACTOR#  SHELL  TRACK  AZIMUTH 

25S 

15 

N8  -  MB  ♦  1 

256 

Dopcwei  =  x(i) 

257 

FCxf'-'B)  a  0.2s 

25B 

iFf  X(2)  .GT.  0.  )  FCHfNBl  »  Xf2) 

250 

ACV(HB)  *  0.05 

200 

IFf  Xf3)  ,GT.  0.  )  ACV(NB)  *  xt5) 

2«1 

PHJBOGf N8)  =  xfa) 

20? 

GO  TO  1 

205 

C 

?eo 

C 

Incot  GROUP  c,  frequency  or  WAVELENGTH,  COORDINATES 

OF 

TRANSMITTER 

205 

C 

At  RECEIVER 

206 

20 

NC  A  SC  *  1 

207 

1 F C  til)  .£0.  0.  .AND.  X(2)  .EQ.  0.  )  GO  TO  22 

208 

IFf  (2)  .EQ.  0.  )  GO  TO  21 

2oo 

XL.PCA(NC)  3  Xf 2) 

250 

FofqCNC)  a  5.ES  /  XLAMOAfNC) 

251 

)  TO  5 

252 

21 

■PEC'*..'  c  X'U 

255 

XLA!*r»»(t,CJ  =  3.E5  /  (-’EntNC) 

250 

CO  TO  25 

255 

2'. 

rRf  nc**C  3  =  1#E5 

256 

Xs.*""  I  snc  >  r  3, 

257 

2  J 

IF:  X f  3 >  0.  .AND.  Xfa)  ,E0.  0.  .AND.  X15) 

,EQ« 

0. 

)  GO  TO  2« 

258 

XTfNCJ  XfJ) 

250 

YT(NC)  Xfa) 

260 

7 T(MC)  *  Xt5) 

2*1 

CO  TO  25 

262 

20 

x  T ( NC )  =  500. 

263 

't(NC)  =  50. 

260 

. if  NC)  *  ?. 

265 

25 

IFf  X { 6 )  .EQ.  0.  .AND.  X(7)  .£0.  0.  .AND.  X(6) 

•  EO. 

C. 

)  GO  TO  26 

266 

XBfrfC)  a  X f 6 ) 

267 

YRfNC)  =  X(7> 

26e 

ZR(NC)  =  XfD) 

260 

GO  TO  27 

270 

26 

XPff'C)  a  -  500. 

271 

YRfHC)  =  51. 

272 

7-fNC)  s  2, 

273 

27 

Gu  TO  ! 

27- 

c 

275 

c 

NPUT  GROUP  D,  IN0IC1E3  OF  REFRACTION  FOR  NODE 

A  DUST, 

MODE  B  OUST 

276 

£ 

And  CARBON  FOR  EACH  FREQUENCY 

2*' 

50 

NO  =  NO  +  1 

-  J 

XNARfND)  3  1.66 

o  70 

IFC  Xfi)  .GT.  0.  )  X.NAR(ND)  *  X  ( 1  ) 

230 

XNAIfHQ) 

=  I.6E-2 

281 

IFf  Xf ?) 

,GT.  0.  ) 

XNAI(ND) 

z 

x  1 2  3 

282 

Xf-  iRfND) 

a  1.66 

283 

r  f  Xf  3 ;■ 

.GT.  0.  ) 

XNBRfNO) 

* 

x(3) 

28a 

*'N8J  f  NO) 

a  1.6E-2 

285 

IFf  xra) 

,GT.  0.  1 

XNBIfNO) 

= 

Xfa) 

286 

XNCRfNO) 

=  2. 

287 

IFf  XfS) 

.GT.  0.  ) 

XNCRfNO) 

z 

xf5) 

288 

XNCIfND) 

*  1, 

239 

•C(  Xfb) 

.GT.  0.  ) 

XNCIfND) 

c 

x(6! 

290 

GO  TO  1 

78 


29| 

292 

293 

294 

295 

296 

297 
296 

299 

300 

301 

302 

303 

304 

305 
506 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 
516 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 
346 


C  INPUT  CROUP  E,  0EN3I TIES  0*  So**-*  OUST  GRAINS  AND  CARBON,  SOIL 

C  MOISTURE  CONTENT,  CARBON  TIELd  FRACTION,  RATIOS  OF  NODE  A^TO  NODE 

C  8  HASS  ANO  BASE  TO  MAIN  CLOUD  NASS 
40  RHOC  *  1.5 

IF!  XI 1 )  ,CT.  0.  )  RHOC  4  X(lJ 
RHOD  c  2.5 

IF{  X (2)  .ST .  0.  )  RHOO  «  X(2j 
FH20  x  0.15 

IF  I  X  C  3  J  .GT.  0.  )  FH20  «  X(3l 
RHOC  x  1.5 

IF t  X (4 )  ,GT.  0.  )  RHOC  e  X(4i 
XLC  *  0.3 

IF(  X(5)  .GT.  0.  )  XLC  «  Xt5) 

P«A8  *  0.25 

IF C  X(6)  ,GT.  0.  )  RMA8  x  X(6) 

RBASE  *  0.1 

!F(  X ( 7 5  .GT.  0.  )  RBASE  *  X(7) 

GO  TO  1 
C 

C  INPUT  GROUPS  F,  G,  AND  H,  PROBABILITY  DISTRIBUTION  PARAMETERS  FOR 
C  The  HOOE  A,  NODE  8,  AND  CARBON  PARTICLES 

45  IF (  X(l)  *  X(2)  .LE.  0.  .AND.  X{3>  *  X(4)  *  XI5)  ,LE.  0.  )  CO  TO  1 
AHA  a  X(l> 

3A  s  X(21 
AMINA  a  X (3) 

AmAXA  «  X(4) 

PA  «  x<5) 

GO  TO  1 

46  IF (  XIII  A  XC2)  ,LE.  6*  .AND,  Xt3)  *  X(A)  •  XI5)  .LE.  0,  )  CO  TO  1 
AHB  *  X(l) 

SB  x  X(2) 

AHIhB  ■  X C 3 > 

AHAX8  *  X (4) 

P8  «  XI 5) 

CO  TO  1 

50  IF!  XC1)  •  XI2)  .LE.  0.  .AND.  XCS)  •  XC4)  •  X<5)  .LE.  0.  )  CO  TO  1 
AMC  s  XllJ 
SC  «  X(2) 

AMINC  *  XI3) 

AHAXC  •  X(4) 

PC  *  XC5) 

GO  TO  1 

C  INPUT  GROUP  I,  ATMOSPHERIC  ANQ  RISING  CLOUD  PARAMETERS 

55  P3F  «  4. 

IF  (  X(l)  .GT.  0.  )  PSF  »  XU) 

ALPHA  i  1. 

IF f  X(2)  ,CT.  0.  )  ALPHA  *  XC?) 

CORAG  X  0.6 

IFC  X(3)  .GT.  0.  )  CORAG  »  XCJ) 

RHOA  a  X(4) 

ElEVG  »  X(5) 

IFC  RHOA  .LE.  l.E-4  )  RHOA  x  J.225E-3  •  EXPC  -  ELEVG  /  8.4E3  ) 
TAIR  c  288. 

IFC  XC6)  .GT.  0,  )  TAIR  x  XC6) 

TLAPSE  «  -  9.8E-3 

IFC  XC7)  ,NE.  0.  )  TLAPSE  *  X,7) 
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*LTIV  *  t.EJ 

IF  t  X(«)  #GT •  0.  )  ALTIV  *  X(fc) 
GO  TO  t 


InPuT  CROUP  J,  HEAR  kind  VELOCITY,  «INO  reference  altitude.  power 
LA*  EXPONENT  OF  VERTICAL  P&OFtLE.  WIND  AZIMUTH 
60  VHINC  a  5. 

JFf  X £  1 5  «GT.  0.  )  VWlHD  *  X(l) 

ALT*  a  10. 

IFF  x(2)  ,GT.  0.  )  ALTm  a  X(2i 
PVW  a  0,1 

if c  in;  .it.  o,  )  pvw  =  x(j) 

PKINOG  =  XCa) 

SC  TO  1 

INPUT  C-ppUP  K,  MAXI  HOW  DIAMETERS  OF  PARTICLES  IN  the  SIZE  GROUPS 

65  dc  67  n  =  e 

JFf  X'N)  .LE.  0.  5  GO  to  67 

If(  NJ  ,£G,  C  )  GO  TO  66 

IF  £  X(N)  .LE.  DGROUPCNJ5  )  5C  TO  67 

66  I.J  a  NJ  +  I 

OGPnUP(Nj)  a  XCN) 

67  CONTINUE 
GO  TO  1 

INPUT  group  L#  calculation  UmES 

70  CO  72  N  a  1,  a 

IF!  X(N)  .LE.  0.  )  GO  TO  72 

Iff  NX  .EG.  0  )  GO  TO  71 

Iff  X£N)  .LE.  TIHE(NX)  )  GO  Tn  72 

71  NK  •  NX  ♦  1 
TiwE'NO  a  X(N) 

72  CO-T1NUE 
SO  TO  1 


INPUT  GROUP  m,  CONTROL  OPTIONS 
90  IPRINT  a  0 

IF  I  1(1)  .GT,  C.  )  IPRINT  «  1 
CO  TO  1 


7U13  SECTION  WRITES  OUT  THE  InPUT  DATA  FOR  THIS  PROSLEH 
100  "RITE ( JTAPf.  101)  NPRQS 

i 07  F0RHST(IH1,6<JH  A: 

.  OUST  CLOUD  HOOEL  // 

2;m5,68m  INPUT  DaTi 

J£w  NU«3Lf  t  13  // 

sImO.TOk  HUNIT10N 

S  PARAMETERS 

el  HO#  12ruSURST  YIELD  mYoRq  INITIAL  SHAPE  FACTORS 


A3L  MUNITION 
INPUT  data  for  prusl 


MUNITION  AND  CRATER 


SHELL  TRAC 


"POINT  OOROINATrs  DEPTH  Op  LOFTFD  LOADING  SHELL  TRAC 

St/ 

RTH  # 1 23H  C.9  TNT)  FRACTION  ALONG  CROSS  VERTICAL  X  COORD. 

1  T  COORD.  7  COORD.  9URST  MASS  FACTOR  AZIMUTH/ 

2!H  ,!22M  TRACK  TRACK  (METERS) 

J  (METERS)  (METERS)  (WETfR3i  FRACTION  (HJ/Lfi  TNT1.1)  (DEG)  ) 
SRITE'JTAPE,  102)  (  (  I,  *(!),  FH(I),  CT(1),  CP(1),  CY(J),  X9(l). 

iTBui,  zb ( i ) #  oo9(i)»  Fcmi ) ,  acv;d,  ph»bpg( t )  )»  I  =  1.  nw  ) 


80 


102  FORHATUH  ,  13,  F9.I,  F9.1  ,  F<M  ,  F7.1,  F8.1,  F12.tr  FlO.l,  F10.1 
1*  F9.1,  Ft0.2,  1PE15.2,  OFF  12.1  ) 

WRITEUTAPE,  103)  RHOG,  FH20,  RMOD,  AMA,  8«,  AMINA,  AHAXA,  PA, 

1  RHOO,  AMB,  $B,  AMINB,  AMAXB,  PB,  RHOC,  AMC,  SC, 

2  AHINC,  AMAXc,  PC,  XLC,  RMAB,  RBASE 
!0J  FORMAT (1H0,22HRULK  0EN3ITY  OF  SOU  t,  Ffl.l,  7H  GH/CH3  / 

1 1 H  ,  2«HSOIL  MOISTURE  FRACTION  »,  FS.2  / 


2 1  HO, 77H 

318UTTON  PARAMETERS  /  1HO, 
979H  OENSITY 

SUM  POWER  L*H  /  IN  , 

678HHATERIAL  (GH/CH3)  C 
7TER  EXPONENT  /  1H  , 


SI2E  PROBABILITY  OISTR 


standard 


MINIMUM 


OIAMf TER  DEVIATION  DIAMETER 
(MICRONS)  PARAMETER  (MICRONS) 


8B7H  (MICRONS)  PARAMETER  (MICRONS) 

RONS)  / 

11H  ,  8HDUST  -  A,  F«.2,  FI2.2,  F12.1,  FIS. I,  FIS. I,  F10.I  / 

2’-H  ,  8HDUST  -  B,  F9.2,  F12.2,  F12.1,  FI5.1,  FI3.1,  FlO.l  / 

31H  ,  bHCARBUN,  Fit. 2,  F12.2,  F12.1  ,  FlS.l,  F13.1,  FlO.l  / 

91H0,23HCARB0N  YIELO  FRACTION  ,,  FS.2  / 

StH  , 29HRAT 10  MODE  A  TO  MODE  B  HASS  *,  F5.2  / 

6lH  ,  31HRATI0  ‘BASE  (0  main  CLOUD  MASS  «,  FS.2  //  ) 

N  «  M I  NO (  10,  NDG  ) 

WRITEUTAPE,  109)  (  INDEX(l),  I  »  1,  N  ) 

109  FORMAT ( 1H0,80H  MAXIMUM  DIAMETERS  OF 

1PARTICLES  IN  EACH  SIZE  GROUP  > 

21H0,  iTHSIZE  GROUP  NUMf.fR,  I«,  9IH  ) 

WRITE(JTAPE,  105)  (  OGROUP(I),  I  *  I,  N  ) 

105  FORMAT (1H  , 16HHXXIMUM  DIAMETER,  F7.1,  9F11.1  ) 

WRITEUTAPE,  106) 

106  FORHATUH  ,  15H  (MICRONS)  ) 

00  109  I  *  1,  9 
NS  r  10  '  I  ♦  1 
NF  »  NS  ♦  9 

IF (  NDG  .LT.  NS  )  GO  TO  110 
NF  ■  MINO (  NF,  NDG  ) 

MRITE(JTAPE,  107)  (  INDEX(N),  N  ■  NS,  NF  ) 

107  FORHATdMO.UX,  101 1 1  ) 

WRlTEUTApE,  108)  (  OGROUP(N),'  N  *  NS,  NF  ) 

108  FORMAT (IN  ,  12X,  lOrtl.l  ) 

109  CUNTINUF 

110  WRITE (JTAPE ,  111)  NPROB 

111  FURMAT ( 1H1 ,65H  INPUT  DA 

1R08LEM  NUMBER,  13,  I2M  (CONTINUED)  // 

21M0,  7«H  TRAN3MITTI 

3EIVER  parameters  / 

9tH0,  90H  PAIR  FREUUENCY  WAVELENGTH  TRANSMITTER  '.OORI 

5  RECEIVER  COORDINATES  / 

6tM  ,  95MNUMBER  (GHZ)  (MjCRnNS)  X  COORD.  Y  COURD, 

7QRD.  X  COORD.  Y  COORD.  7  C.ORD,  / 


5 

6 l H  ,  95m 
7QRD.  X 
81H  ,  95H 
9ERS)  V 


INPUT  DATA  FOR  P 
TRANSHITTER  -  REC 
TRANSMITTER  '.OOROINATES 
X  COORD.  Y  COURD.  Z  CO 


9ERS )  (MfTERS)  (METERS)  (METERS)  ) 

WRITEUTAPE,  112)  (  (  1,  FREQ(T),  XL  AMDA  ( I ) .  XT(I),  YHI),  ZT(I), 

1  XR(t),  VR(I),  ZR(I)  ),  1  *  t,  NRT  ) 

11?  FORHATUH  ,  13,  1PE19.2,  OPFto.l,  F18.1,  5F1I.1  1 

WRITEUTAPE,  11J)  (  (  I,  FREO(I),  XL*HDA(I),  XNAR(I),  XNAIU), 

1  XNBR(I),  XNB1(I),  XNCR(I),  XNCI(I)  ),  I  s  1,  NRT  ) 


(METERS)  (METERS) 


I  13  Ff)RMAT(  iHO/  1  HO » 
1 6HH 


INDICICS  OF  RrFRA 
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065 

066 

067 

068 

069 

#70 

071 

072 

073 

07a 

075 

076 

077 

078 

079 

080 

081 

082 

083 

080 

085 

066 

067 

088 

O80 

090 

091 

092 

093 

090 


OUST  -  MODE  A 

IMAG  tart 


DUST 
REAL  PA 


2CTI0O  /  1M0, 

392H  PAIR  FREOUENCY  WAVELENgTH 
0  -  MODE  8  r.ARBON  /  1H 

SiOOHNUMBER  CG«Z)  (MICROnS)  REAL  PART 
6RT  [MAG  PART  REAL  PART  fHAG  PART  / 

7  <  1H  ,  13,  1PEI0.2,  0PF10.1,  F10.2,  1PE10.2,  0PF10.2,  IPEJO.2, 

8  0PF1O.2,  1PE10.2  )  ) 

IPSF  =  IF  1 7 (  PSF  ) 

APSF  s  HPSF(IPSF) 

po:tE(Jtape,  uoj  apsf,  alpha,  corag,  rhoa, 

1  ALTIV,  VWINO,  ALTH,  PVW,  PHIwOG 
11a  forma t ( l ho/ 

1 1HA,68H 
2ARAHE3FRS  / 

SlHO,  98HPAS0UILL  CLOUD  ALPHA  CLOUD  DRAG 
0  GROUND  AIR  TEMPERATURE  INVERalON  / 

51H  , I 01H3TABTLITY  ENTRAINMENT  COEFFICIENT 
6-1  TEH°£RArURE  LAPSE  RATE  l*»ER  ALTITUDE 
71H  ,  98HF ACTOR  FACTOR 

8  (DEG  K>  (OEG  K/  M)  (METERS)  t 

9/Hl  ,2X,  Al,  F15.I,  F12.1,  (Re  1 T,2,  0PF11  ,  Ftl.l,  1PE10.1, 

1  0PF1S.1  / 

WIND  REFERENCE 
ALTITUDE 
(METERS) 


ELEVG,  TAIR,  TLAPSE, 

ATMOSPHERIC  P 
AIR  OENSITY  GROUND 
AT  GROUND  ELEVATIO 

/ 

(GH/CHS)  (METERS) 


2 1  HO, 0  7HMEAN  HIND 
31H  , 09HYEL0C I T Y 
0 1 H  , 08H  (M/S) 

51H  ,  F6.1,  F10.1,  F 1 5, 2,  FI3.1  ) 
RETURN 
ENO 


WIND  VERTICAL 
PROFILE  POWER 
LAW  EXPONENT 


WIND  / 
AZIMUTH  / 
(OEG)  / 
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1  SUBROUTINE  PGROUP 

2  C 

J  C  THIS  SIIBRUUTINE  IS  THE  EXECUTIVE  ROUTINE  FOR  THE  CALCULATION  OF 

9  C  THE  PROPAGATION  PARAMETERS  FOr  EACH  CONTRIBUTING  3IZE  GROUP  FOR 

5  C  EACH  TVPE  OF  PARTICULATE  MATERIAL  FUR  EACH  FREQUENCY.  THIS  ROUTINE 

6  C  SETS  UP  THE  INPUT  TO  SUBROUTINE  CGROUP,  STORES  THE  OUTPUT  IN  THE 

7  C  APPROPRIATE  VARIABLES,  A NO  AFtER  ALL  CALCULATIONS  ARE  CCAPLFTE 

fl  C  WRITES  OUT  THE  RESULTS 

9  C 


to 

It 

C 

C 

INPUTS 

FROH  CINF'T  COMMON  AREAS 

ia 

C 

PMOO 

s 

DEN3ITY  UF  THE  OUST  r.RAINS  (GH/CH3) 

t  j 

C 

RHOC 

s 

DENSITY  OF  THE  CARBOn  PARTICULATES  (GM/CM3) 

19 

C 

XNAK 

r 

REAL  PART  OP  THE  lNDpX  OF  REFRACTION  FOR  MODE  A  OUST 

15 

C 

PARTICULATES 

16 

C 

XNA  J 

s 

IMAGINARY  part  OF  THf  Index  OF  refraction  FOR  MODE  A  OUST 

17 

C 

PARTICULATES 

IS 

C 

XNBR 

3 

HFAl  PART  UF  THE  INOpX  OP  REFRACTION  FOR  MODE  B  OUST 

19 

C 

particulates 

20 

C 

XNBI 

C 

IMAGINARY  PART  OP  THe  INDEX  QP  REFRACTION  FOR  MODE  B  DUST 

21 

c 

PARTICULATES 

22 

c 

XNCR 

3 

REAL  PART  OF  THE  INDEX  OF  REFRACTION  FOR  CARBON  PARTICLES 

2  J 

c 

XNCI 

3 

imaginary  part  op  thf  index  of  refraction  for  carbon 

29 

c 

PARTICULATES 

25 

c 

AHA 

r 

LOG  NORMAL  MEAN  OIAHfTER  PARAMETER  FOR  MODE  A  DUST 

26 

c 

PARTICLES  (MICRONS) 

27 

c 

AHB 

s 

LOG  NORMAL  MEAN  OIAMfTER  PARAMETER  FOR  MODE  B  DUST 

2S 

c 

PARTICLES  (MICRONS) 

29 

c 

AHC 

s 

LOG  NORMAL  MEAN  01 AHf TER  PARAMETER  FOR  CARBON  PARTICLES 

30 

c 

(MICRONS) 

31 

c 

SA 

r 

LOG  NORMAL  STANDARD  DEVIATION  PARAMETER  FOR  MODE  A  DUST 

32 

c 

PARTICLES 

33 

c 

50 

c 

LOG  NORMAL  STANDARD  DEVIATION  PARAMETER  FOR  MODE  8  DUST 

39 

c 

PARTICLES 

35 

c 

sc 

s 

LOG  NORMAL  3TAN0AR0  DEVIATION  PARAMETER  FOR  CARBON 

36 

c 

PARTICLES 

37 

c 

AHINA 

3 

POWER  LAW  MINIMUM  OIamETER  FOR  MODE  A  OUST  PARTICLES. 

36 

c 

(MICRONS) 

39 

c 

THIS  IS  The  diameter  AT  HhICH  the  LOG  NORMAL  AND  POWER 

90 

c 

LAW  PROBABILITY  DISTRIBUTIONS  ARE  JOINED  TO  FORM  THE 

91 

c 

myrrio  probability  distribution 

92 

c 

AHJNB 

J- 

POHFR  LAW  MINIMUM  OIaMETER  FOR  MODE  B  DUST  PARTICLES. 

‘i 

c 

(MICRONS) 

99 

c 

AMINC 

3 

FOWEH  law  MINIMUM  DIAMETER  FOR  CARBON  PARTICLE., 

95 

c 

(MICRONS) 

96 

c 

AMAXA 

3 

p twfr  l*w  maximum  diameter  for  mode  a  dust  particles 

97 

c 

(MICRONS) 

96 

c 

AHA  XB 

3 

POWER  law  MAXIMUM  DIAMETER  FOR  MODE  B  DUST  PARTICLES 

99 

c 

(MICRONS) 

5C 

c 

AM4XC 

3 

POWER  law  maximum  OIamETER  FOR  CAWRON  PARTICLES 

51 

c 

(MICRONS) 

52 

c 

PA 

t 

exponent  for  PUWF9  Law  PROBABILITY  DISTRIBUTION  FOR  THE 

53 

c 

MOOE  A  OUST  PARTICLES 

59 

c 

PQ 

3 

E-VONENT  FOB  POWEP  Law  PROBAHTlITY  DISTRIBUTION  FOR  IHE 

55 

c 

MOPE  B  OUST  PARTICLES 

56 

c 

PC 

3 

EXPONFNT  FOR  POWER  La»  PROBABILITY  DISTRIBUTION  FOR  THE 

57 

c 

CAPRON  PARTICLES 

56 

r 

OCPOUP 

3 

APRAY  OF  maximum  OIAhFTFRS  OF  PARTICLES  IN  EACH  SIZE 

83 


59  L 

60  C 

61  C 

62  C 

6  3  C 

64  C 

65  C 

66  C 

67  C 

66  C 

6"  C 

70  C 


'5  C 

76  C 


79  C 

?  0  c 

81  C 

82  C 

63  C 

64  C 

as  c 

06  C 

87  C 

88  C 

89  C 

90  C 

9!  .  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

94  C 

100  C 

101  C 


GROUP  (MICRONS) 

XLAMDA  x  ARRAY  OP  7H£  waVEUNgTHS  OF  THE  TRANSMITTER  -  RECEIVER 
PAIRS  (MICRONS) 

OUTPUTS  TO  CPGRP  COMMON 

FNA(t)  =  NUHREP  FPACTION  OF  PARTICLES  IN  SIZE  GROUP  I  FOR  MODE 
A  DUST  PARTICLES  (RATIO  OF  NUMBER  OF  PARTICLES  IN  SIZE 
GROUP  TO  TOTAL  NUhHER  OF  PARTICLES  IN  DISTRIBUTION  ) 

fnrci)  x  number  fraction  of  particles  in  size  group  i  for  mooe 
8  OUST  Particles 

FnC { I )  X  NUMBER  FRACTION  Of  PARTICLES  in  size  group  I  FOR 
Carbon  ^articles 

F m A ( I )  s  -ASS  FRACTION  for  size  GROUP  I  for  MODE  a  DUST 

PARTICLES  (  RATIO  OF  mass  OF  PARTICLES  IN  SIZE  GROUP  I 

To  total  "ass  in  distribution  ) 

F“6CI’  X  "F-S  FRACTION  FOR  SIZE  G»OUP  I  F0»  MODE  B  DUST 
'a'j7ICLES 

rMc t i 5  -  mass  fraction  rqr  «•  i ze  group  i  fo°  carbon  particle? 

r n g a < ■ ■  r  nuubep  of  particles  °fr  gram  or  material  in  size  group 

I  r0R  MODE  A  DUST  PARTICLES  (NUH9ER/CM) 

PNGB(I)  =  number  of  PjP-'CLeS  PER  gram  of  MATERIAL  in  size  group 
I  FOR  HOOE  8  DUST  PARTICLES  (NUMBER/GM) 

PUGC  ( I )  =  LuHR-R  P-RTIClrS  "ER  GRAM  OF  MATERIAL  IN  SIZE  GROUP 

1  FOR  CARBON  PARTICLES  (NUMBER/Gm) 

3IGA*  ( I tJ)  s  AVERAGE  ABSORPTION  CROSS  SECTION  PER  PARTICLE  IN  SIZE 
GROUP  I  FO  AAVEi  NGTH  J  FOR  MODE  A  DUS (  PARTICLES 
(CM2) 

3 2 GAB ( I / J )  X  AVERAGE  ABSORPTION  CROSS  SECTION  PER  PARTICLE  IN  SIZE 
GROUP  I  FOR  WAVELENGTH  J  FOR  MODE  B  DUST  PARTICLES 

:c"*2) 

3IGAC(I,J5  *  AVERAGE  ABSORPTION  CROSS  SECTION  PER  PARTICLE  IN  SIZE 
GROUP  I  FOR  WAVElENGTN  J  F0»  CARBON  PARTIClES  (CM2) 
3IG3A ( I / J)  x  AVERAGE  SCATTERING  CROSS  SECTION  PErt  PARTICLE  IN  SIZE 
GROUP  I  FOR  WAVELENGTH  J  FOR  MODE  A  OUST  PARTICLES 
(CH2) 

SIGS8( I # J)  X  AVER  SF  SCATTERING  CROSS  SECTION  PER  PAR’ICLE  IN  SIZE 
GROUP  i  FOR  KAVElENGTH  J  FOR  MODE  B  DUST  PARTICLES 
(CM2) 

S 1 GSC ( . # J )  x  AVERAGE  SCATTERING  CROSS  SECTION  PEG  PARTICLE  IN  SIZE 
GROUP  I  FOR  HAVFlENGTM  J  FOP  CARBON  PARTICLES  (CM2) 
SIGEA(!,J)  c  AVERAGE  EXTINCTION  CROSS  SECTION  PER  PARTICLE  IN  SIZE 
GROUP  J  FOR  wA\ Cl  ENGTw  J  FOR  MODE  A  DUST  PARTICLES 

xCM2 ) 


10?  C  SIG£3(I»J>  *  AVERAGE  EXTINCTION  CROSS  SECTION  PER  PARTICLE  IN  SIZE 

1 0 3  C  GROUP  !  FOR  wAVEl£NG(h  J  FOP  MODE  B  DUST  PARTICLES 

104  C  (CM2) 

105  C  3 1 GEC ( ! # J)  a  AVERAGE  EXT'NCTIoM  CROSS  SECTION  PER  PARTICLE  IN  SIZE 

>06  C  GROUP  I  FOR  WAVELENGTH  J  FOR  CARS’  s  PARTICLES  (CM2) 

>07  C  S1GBAU.J)  =  AVERAGE  SACXSCaTtER  CROSS  SECTION  PER  PARTICLE  IN 

>08  C  SIZE  GROUP  I  FOR  WAVELENGTH  J  FOR  MODE  A  OUST 

>09  C  PARTICLES  (CMP ) 

>10  C  SIGBR(I.J)  x  AVERAGE  BACWSCATtER  CROSS  SECTION  PER  PARTICLE  IN 

>>>  C  SIZE  GROUP  I  FOR  WAVELENGTH  J  FOR  HFIDE  8  DUST 

>12  C  PARTICLES  (CM2) 

>13  c  3 IG8C ( I » J )  *  AVERAGE  HACKSCATtER  CROSS  SECTION  PER  PARTICLE  IN 

>10  c  SIZE  GROUP  I  fur  WAVELENGTH  J  FOR  CARBON  PARTICLES 

>15  C  (CM2) 

116  C  CMUAA(J,J)  =  MASS  ABSORPTION  (*0£cF IC TENT  FOR  SIZE  GROUP  I  AT 
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117 

118 

119 

120 
121 
122 
125 
129 

125 

126 

127 

128 

129 

130 

131 

132 

133 
139 

135 

136 

137 

138 

139 
190 
lut 

192 

193 

1911 

195 

196 

197 

198 

199 

150 

151 

152 

153 
159 

155 

156 

157 

158 

159 

160 
161 
162 
163 
169 

165 

166 

167 

168 

169 

170 

171 

172 

173 
179 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CMUAR(1,J)  * 
CHUACd.J)  « 
CMUS* ( I . J  J  * 
CHUSBd.4)  a 
CMuscn.j)  * 
CMUEMI#J)  * 

CMueRu.j)  i 

CMUEC(t.J)  * 
CMUBAd.J)  a 
CHUBB1I/J)  = 
cmiBcn.J)  * 
CMUEMAcmn  = 

CMUEM8URT)  a 

cmuemccirti  * 

CaU3MA(IRn  a 
CMUSMBdRT)  a 
CMUSHC(IRT)  a 

CMU'iMAdOT)  a 
CmUHhB{ IRT )  a 
CmUBmCCIRT)  a 


WAVELENGTH  J  FDR  MODE  A  DUS?  PARTICLES  (CH2/GM) 

HASS  ABSORPTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  NODE  B  DUST  PARTICLES  (CB2/GH) 

HASS  ABSORPTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  CARBON  PARTICLES  (CM2/GM) 

MASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  MODE  A  DUST  PARTICLFS  ICH2/GH) 

HASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  MODE  B  DUST  PARTICLFS  (CH2/GH) 

HASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  CARBON  PARTICLES  (CH2/GM) 

HASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GPQUP  I  AT 
WAVELENGTH  J  FOR  MODE  A  DUST  PARTICLES  CCH2/GM) 

MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FUR  NODE  B  DUST  PARTICLES  (CM2/GM) 

HASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOR  CARBON  PARTICLES  (CM2/GH) 

HASS  BACKSCATTER  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELFNGTH  j  fur  MODE  A  OUST  PARTICLES  (CH2/GH) 

HASS  BACKSCATTER  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FOP  MODE  B  DUST  PARTICLES  ICH2/GH) 

HASS  BACKSCATTER  COEFFICIENT  FOR  SIZE  GROUP  I  AT 
WAVELENGTH  J  FUR  CARBON  PARTICLES  ICH2/GM) 

MfAN  HASS  EXTINCTION  COEFFICIENT  FOR  THE  ENTIRE  MODE 
A  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CM2/GH) 
MEAN  MASS  EXTINCTION  COEFFICIENT  FOR  THE  ENTIRE  HUOE 
B  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CM2/GM) 
MEAN  HASS  EXTINCTION  COEFFICIENT  FOR  THE  ENTIRE 
CARBON  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT 
(CH2/GH) 

H£AN  MA3S  SCATTERING  COEFFICIENT  FOR  THE  ENTIRE  MODE 
A  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CH2/GM) 

H£ AN  HASS  SCATTERING  COEFFICIENT  FOR  THE  ENTIRE  MODE 
B  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CH2/GH) 
MEAN  MASS  SCATTERING  COEFFICIENT  FOR  THE  ENTIRE 
CARBON  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT 
(CH2/GH) 

hear  HASS  8ACK9CATTE"  COEFFICIENT  FOR  THE  ENTIRE 
A  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CH2/GM) 
M£*N  HASS  BACKSCATTER  COEFFICIENT  FOR  THE  ENTIRE 
B  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT  (CM2/GH) 
MEAN  HASS  BACKSCATTER  COEFFICIENT  FOR  THE  ENTIRE 
CARBON  PARTICLE  DISTRIBUTION  AT  WAVELENGTH  IRT 
(CH2/GH) 


note  THAT  The  HASS  ABSORPTION  COEFFICIENTS  AN G  ALL  AVERAGE  CROSS 
SECTIONS  ARE  NOT  CARRIED  EXPLICITLY  BUT  ARE  CALCULATED  WHEN  NEEDED 
BY  CWUAAd.J)  a  CMUEAd, J)  -  CMUSAII.J) 

STGAA  d  .  J  )  a  CW)JAAd,J)  /  PNGA(I) 

WITH  SIMILAR  rEL*TIUNS  FOR  the  B  and  C  MATERIALS  AND  THE  OTHER 
AVERAGE  CHOSS  SECTIONS 


Common  /  CCGRp  /  HGRP,  MSIZEr  MSPHER,  DLOW,  OHIGH,  DM,  3,  DH IN, 

1  DMAX,  P,  XR,  XI,  RHll,  PNG.  FNf  FM,  SIGA,  SIGS, 

2  SIGE.  SIGB.  SPN(21).  CHUa,  CMU3,  CHud.  CHUB.  «L 
Common  /  CINPT2  /  FREOllOl,  X|AHOAU0),  XT(10).  YT(lO),  ZKIOJ, 

1  RX(10),  YR( | 0 ) .  ZR(lft) 
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COMMON 

COMMON 

COMMON 

COMMON 


COMl,riN 

'’I«S»S 

C ; “ENS 


/  CINPTJ  /  XnMMO),  XNRRUO),  XNBI(IO),  XNCR(IO) 

XNCI(IO),  Am*.  SA,  AMINA,  AHA  X* ,  PA,  AHB,  SB, 
AKJN8,  AKAXr,  PB,  AMr,  sc,  AMINC,  AHAXC ,  PC 
/  CINPTR  /  RHOC,  RHOD,  RHOC,  FH?  ,  XLC,  RMtB ,  RBASE 
/  CINPTt  /  NW,  NOC,  NRt,  NTIKE,  nPROB,  IPHINT 
/  C t NP T 7  /  DGROUP(SO),  TIKE(2S) 

/  CPGRP  /  FNA (50 ) »  FnB(50  j ,  FNC(50),  FHA(50),  FHB(SO), 
FHC(SO),  PnGa (50 ) ,  PNGB(SO),  PNGC(50), 
CHU3»(50,10),  CMUSB(S0, 10),  CMOSC (50, 10 ) , 

CMUE A(S0, 10),  CHi)EB(50, 10),  CHUEC (SO,  1 0) , 

CMUBA (50, 10>#  CHUBB (50 ,10),  CHUHC(50,10) 

/  TAP"  /  :iA°E,  JTAPE 

ion  ;s<iB(io) 

’O'-  CH!E“t;iO),  PMUEMBttO),  C“UEMC (10),  CMUSMA(IO), 
C-ifMB(.s),  C-IJSMC(-O),  Cl'V3-'.A(<0),  CMUBMBUO), 

C  *.'=“0(10),  FMO(SO),  P“A33F(50) 


SET  FRiC-IGNALIZATiCN  ?AP.METeP 
DATA  rRZ T  0.5  • 

ZERO  OUT  TmE  F'PEQU£NCv  CALCULATION  CONTROL  INDEX 

ZERO  I:  '  TMl  MEAN  MASS  COEFFICIENTS  FOR  THE  THREE  HATERIALS 

DO  5  IRT  *  1,  NRT 

TSMPCIRT)  *  r 

CHt'FMAUPT)  £  n, 

CMUE«p(IPr)  =  0. 

CHUEHCURY)  =  0. 
cmusmaubt;  =  o. 

C“U3“B( IRT )  a  0, 


CMS'FMAUPT)  £  n, 

CMUE«p(ipr)  =  o. 

CHUEHCURY)  =  0. 

CMUSMAnot;  =  0. 

C“U3“B(IRT)  a  0, 

CmUSmC'IRT)  *  0. 

CMU6“A(IRT)  *  0. 

CHl'BMB ( 1 R  f )  =  0. 

CMUBMC.'iRT)  I  0. 

5  CONTINUE 

ZERO  CUY  NUMBER  AND  HASS  FRACTION  PARAMETERS 
DO  b  IDG  *  1,  NDG 
FNA(IDG)  a  0. 

F’PUDG)  *  0. 

FNCUDG)  a  P. 

F“»(JOG)  * 
rMB(IOG)  =  0. 

FMC(IOG)  =  0. 

6  CONTINUE 

LOOP  OvER  The  MATERIALS 
oo  17?  I“AT  a  1,  J 

set  control  variables  and  input  parameters 

7  GO  70 (  8,  10,  20  ),  .  ‘AT 

I“AT  a  !  THE  H»7ERT*i  13  MODE  A  DUST  PARTICLES 
(i  mln  a  o 

mpl  *  0 

IF (  AHA  *  SA  ,G7.  0,  )  MLN  a  .1 
I F (  AMtNA  »  A“»XA  *  PA  ,GT.  0.  )  HPL  *  -2 
MSI ZE  S  hln  ♦  HPL 
MSPHER  a  i 
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233 

23a 

235 

236 

237 
230 
239 

2ao 

2«l 

2«2 

203 

200 

205 

206 

207 
200 
209 

250 

251 

252 
25  J 
250 

255 

256 

257 
250 

259 

260 
261 
262 
263 
260 

265 

266 
267 
266 

269 

270 

271 

272 

273 
270 

275 

276 

277 
276 

279 
200 
201 
282 
283 

280 

205 

206 
287 

208 
209 
290 


C 

C 


C 

C 


C 

C 

C 

c 

c 


c 

c 


RMO  «  RHDO 

DM  z  1.E-0  *  AHA 
5  *  SA 

DM  1 N  z  1.E-0  *  AHJNA 
DMA*  a  t.E-0  *  AHAXA 
P  a  PA 
GO  TO  30 

IMAT  s  2  THE  MATERIAL  IS  MODE  8  DUST  PARTICLES 
10  Ht.fi  c  0 
HPL  •  0 

IF (  AH8  *  38  .GT.  o.  )  MLN  a  .1 

IF <  AHIN9  »  AHAXB  «  PB  ,GT.  0.*  )  HPL  a  -2 

HSIZE  *  MLN  ♦  HPL 

HSPHER  a  1 

RHO  >  RHOD 

OH  a  1.E-0  *  AH8 

S  a  SB 

OHIN  a  1.E-0  *  AHJhB 
OHAX  a  1.E-0  *  AHAxB 
P  a  PB 
GO  TO  30 

IHAT  a  3  THE  MATERIAL  IS  CARB0N  PARTICLES 
20  H|_N  a  0 
HPL  a  0 

IF!  AMC  *  SC  .GT.  0.  )  MLN  a  .1 

IF!  AMINC  •  AHAXC  *  PC  .GT.  0.‘  )  HPL  a  -2 

HSlZf  a  MLN  ♦  HPL 

HSPHER  a  1 

RHO  a  RHOC 

OH  a  1 .5-0  •  AMC 

S  a  SC 

DM  I N  a  1.E-0  a  AMINC 
DHAX  a  1.E-0  *  AHAXC 
P  a  PC 

For  THIS  MATERIAL  loop  OVER  NaVEIENGTHS 

30  DO  170  IRT  a  |,  NOT 

CHECK  IF  THIS  FREQUENCY  IS  THt  SAME  AS  A  PREVI0U3LV  CALCULATED 
freqi  NCY 

IF!  IRT  .EQ.  I  )  GO  TO  30 

IF!  ISKIP(IRT)  .CT.  0  j  GO  TO  33 

IRT1  a  IRT  -  1 

On  31  IRTC  a  |,  IRT1 

IRTP  a  IRTC 

IF(  XLAMOA(IRT)  .EQ.  XLAHDA(IrTC)  j  GO  TO  32 

31  CONTINUE 
GO  TO  38 

frequency  has  been  calculated  previously*  use  previous  results 

32  I3«IP(IRU  a  IRTP 

33  IRTP  a  ISKIPIIRT1 
DO  37  IDG  a  NOG 

GO  TO!  30,  35,  36  ),  IMAT 
30  ChIIEAcIDG,  IRT)  a  CmuE  A  t  IDG*  JRtP  J 
CMUSAt IPG, IRT )  a  CHUSAI IDG, IRtP) 
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291 

CMUBA ( TOG, IRT )  a  CHUftAUOGrIRTp> 

292 

C«UEhA{IRT)  a  ChU£hA(I»TP> 

29J 

CMU5HAU.9J)  i  CHUSHA(IRTP) 

291) 

CMUS“A(IRt)  =  CKU8HA(  IRTP) 

295 

Gil  TO  37 

296 

35 

CMU£B ( IOG, IR  T )  =  CHUE0UOG#  IRtP) 

207 

chus«(  iog,  i»t)  =  CHusenncr  i«rP) 

290 

CHlir- •(  toe,  IRll  =  CHU381T0G.  IRrP) 

290 

CHUEMBUR7)  a  C SUEHH (TRIP) 

100 

C“US“R(iRT)  a  ChU3"6(!P7P) 

SOI 

'UBPedii)  a  CSU8H8{IRlP) 

S02 

GO  to  57 

SOS 

36 

C“>JEC  (  TOG#  IRT)  a  CHUECtlDG.  IRtP) 

So  a 

CMUSC(T0G,1RT)  a  CHUSC  HOG.  !PTP) 

505 

CMURCHDG,  IRtJ  a  CHURC(It>G,  IRtP) 

SO  6 

C'lOEMCUPI)  a  CHIJE«C(1RTP) 

507 

C"USM5U°T1  =  CSUS“C(!PT») 

SOS 

C^UB-CORT)  =  CM1IBMC  C  IRTP) 

509 

57 

CONTINUE 

JlO 

'  I  1 

f 

GO  TO  170 

1  1 

512 

l 

F«E0I/E*;cir  MAS  NOT  BEEN  ^‘..FULaTED  PREVIOUSt-V,  00  CALCULATIONS 

SIS 

c 

s;o 

C 

"£T  ELtNGTh  F (1R  CCGRP  COHHnN 

S 1 5 

33 

»L  i  1.E-0  *  .*.LAH0A(I9T) 

510 

C 

517 

c 

SET  317'  GROUP  CALCULATION  INDICATOR 

3l8 

r 

INITIALIZE  THE  MAXIMUM  GROUP  EXTINCTION  CONTRIBUTION 

S 1 9 

I'A'.C  i  1 

520 

FhAx  7  0. 

321 

r 

322 

c 

SET  INOlCiES  OF  fEFPACTION 

323 

GO  Til<  00,  50,  60  ),  IHAT 

32u 

«0 

<»  a  XNARURI) 

325 

*;  =  ANA  t ( T  T) 

326 

GO  TO  70 

327 

50 

XR  a  XNflP(iHT) 

3  2« 

XI  a  HMD  (lit; 

329 

GG  TO  70 

530 

0  7 

AR  a  XNCR(IRT) 

33- 

XI  a  XNC!(!»T) 

'32 

70 

CONiINIIE 

333 

c 

33o 

c 

LUOP  (|V)9  SIZE  GROUPS,  START  kITh  THE  SMALLEST  SIZE  GROUP,  STOP 

355 

r 

-OUR  CALCULATIONS  xmEN  EXTINCTION  CONTRIBUTION  FROM  LAST  GROUP 

316 

C 

l£SS  Than  I.e-6  OF  maximum  „,7nilP  EXTINCTION  CONTRIBUTION 

337 

00  160  100  -  1,  nog 

338 

c 

339 

c 

CHECK  IF  EXTINCTION  CONTRIBUTIONS  FR0M  THE  SIZE  GROUPS  HAVE 

300 

c 

«ECOMF  NEGLIGIBLE 

30! 

!F<  IC*LC  ,E0,  0  )  GO  TO  15a 

302 

c 

30  3 

c 

SET  GROUP  NUMBER  FOR  ,-CGRP  COmMUN 

500 

Mf.RR  a  IPG 

3«5 

f 

306 

c 

SET  THE  SIZE  LIMITS  FOR  THIS  <sJZC  GROUP 

307 

IF(  IGC  .EG,  1  )  GO  tij  SO 

300 

OLOn  a  l,E*a  •  pGROlspf  IPG  •  1 5 
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399 

350 

351 

352 

353 

354 

355 

356 

357 
359 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 
37  I 

372 

373 
370 

375 

376 

377 

378 

379 

380 

381 

382 

383 
380 

385 

386 

387 

388 

389 

390 

391 

392 

393 
390 
393 

396 

397 

398 

399 
000 
001 
002 
003 
000 
005 
006 


C 

C 

C 

C 

C 

C 


C 


C 


c 


c 

c 

r 

C 

c 


OHICH  *  1 .E-a  «  OGROUP(IOG) 

GO  TO  90 
80  OlOM  *  0, 

0H1GH  «  l.E-C  «  DGRllUP(l) 

90  IF<  OHIGH  ,LE.  0.  )  GO  TO  160 

CALCULATE  THE  PROPAGATION  PARAMETERS  for  this  size  group, 
WAVELENGTH,  ANO  MATERIAL 

call  cgroup 


SET  THE  PROPAGATION  PARAMETER* 
150  GO  T0(  156,  157,  158  ),  IMAT 


156  IF t  FNA(IOG)  .LE.  0,  )  FNAUDg)  *  FN 
IF  f  FHA(IOG)  ,LE.  0.  )  FHA(IOG)  «  F« 

PNGA(IOG)  a  PNG 
CHUSA(IOG, IRT)  *  CPUS 
CMUEA(I0G,1RT)  a  CMUE 
CmUBA ( 10G, IRT)  •  CHUB 

CHUEHA(IRT)  a  CHUEMA(IRT)  ♦  FmA(IOG)  *  CMUEATIBG, IRT ) 
CWlSHAtlRT)  CMUSHA(IRT)  ♦  FhA(IDG)  »  CHU3AC IOG, IRT) 
CMUBHATIRT)  a  CHUBHAdRT?  ♦  FmA(IDG)  *  CMUBA  ( IDG,  I RT ) 
CO  TO  159 


157  IF  (  FNB(IOG)  ,L£.  0.  }  FNBUDq)  «  FN 
IF C  Fmb(IOG)  .LE.  0.  )  FMBIIOg!  «  FM 
PNGR(IOG)  *  PNG 
CHUSBl tOG, IRT )  a  CMUS 
CHUEBUOG,:RT)  *  CHUE 
CHUBB (IOG, IRT)  a  CHUB 

CMUEHB(IRT)  «  CHUEHetlRT)  ♦  FhB(IOG)  *  CHUEBCIDG. IRT) 

CHUSHR(IRT)  a  CMUSMB(lRT)  ♦  FhBUDG)  *  CMuSBC IOC,IRT) 

CMUBHB(IRT)  a  CMUBMB(IRT)  ♦  FmBUDG)  *  CHUBBC IDG, IRT) 

GO  TO  159 


158  IF i  FNC(IOC)  .LE.  0.  )  FNC(IOg)  »  FN 
IF (  fmc(IOG)  .LE.  0.  J  FMCUOg)  *  FM 
PNGC(inG)  a  PNG 
CMUSCIIOG, IRT)  *  CMUS 
CHUEC ( TOG, IRT)  a  CMUE 
CHU8CCI0G, IRT)  «  CHUB 

CHUEHC(IRT)  a  CMUEMC(IRT)  ♦  FmC(IDC)  •  CMUECtlOG, IRT) 

CMUSHC(IRT)  a  CMUSMC(IRT)  ♦  FmC(IDG)  *  CMUSCt IDG, IRT) 

CMUBMCTIRT)  *  CMU8MCCIRT)  ♦  FmC(IOG)  •  CMUBC (IOG, IRT ) 


set  maxihuh  value  of  extinction  contribution 

159  ENAX  »  AMAXK  EMAX,  FH  »  CMUE  ) 

IF (  EHAX  .LE.  0.  )  GO  TO  160 

CHECX  I"  EXTINCTION  CONTRIBUTION  IS  NEGLIGIBLE 
IF  C  FM  »  CMUE  .GT.  l.E-6  *  E"aX  )  GO  TO  160 

Extinction  contribution  has  become  negligible,  set  control 
parameter  to  SNIP  rest  OF  CROSS  SECTION  CALCULATIONS 
ICALC  a  0 
FN  *  0. 

FM  a  o. 

PNG  a  0, 


i 

: 

l 

I 

I 

4 


I  i 
!  1 


i 


j 


*  i 

j  i 


J  ^ 
s  i 
;  - 

i  i 
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407 
4Q8 
ao? 
«10 
ail 
o  1 2 
813 

8!  4 

415 
«16 
417 

416 
410 
42C 
4?i 
832 
423 

a?  4 
420 
«26 
«27 
426 
a?o 
430 
ajl 
432 
«33 

435 

455 

436 

437 
436 

439 

440 
44] 
442 
543 
44a 

445 

446 

44? 

406 

400 

450 

451 

452 

453 

454 

s;o 

456 

457 
56 

450 

060 

061 

412 

463 

465 


cmis  =  o. 

CHUE  e  0, 

CHUB  *  0, 

C 

160  CONTINUE 

c 

170  continue 

c  ■ 

175  CONTINUE 
C 
C 

C  XRITE  OUT  THE  SIZE  DISTRIBUTION  PROPAGATION  PARAMETERS  FOR  THIS 
C  PROBLE" 

C 

180  DO  ">C0  IMAT  =  1,3 
C 

00  2 Of  IRT  =  1,  NRT 
C 

C  CHECK  IF  THIS  FREQUENCY  13  TH=  8AHE  AS  A  PREVIOUS  FREQUENCY 
C  IF  SO  SC?  REPRINT  JUG  THE  PROPAGATION  PARAMETERS 

IF'  ISXIP(IRT)  .CT.  0  j  CO  TO  .00 
C 

C  SET  PRINT  LINE  COUNTER 

1 1 1  HE  3  =  13 
C 

NRITFtJTAPE,  100)  NPROB 
190  F0RH4T(1H1,74H 

1 1 1  IOn  DUST  Cl  OU')  MODEL  /  / 

2 1 MC , 76H 

3  FOR  PROBLEM  NUMBER  ,  13  / 

41H  ,84 H 

5NLY,  NO  FP.CTIO.NIZATION  )  j 
C 

GO  T0<  200,  210,  220  ),  IMAT 
C 

200  WRITEIJTAPE,  202) 

202  FORHilf !MC,70H 

1PAR71C.ES  -  HOOE.  A  ) 

GO  TO  230 

210  mUTECjTAPE,  212) 

216  pqrma  j  ( 1  HO,  7(lH 

IPiRTICLES  -  HOSE  8  ) 

GO  Tfl  230 

220  ho;tE(j7APE,  22S) 

225  FORMAT ( 1H0,66H 

loans-  particles  ) 

c 

230  MR! IE ( JT*P£,  235)  XLAMDA(IRT),  FREO(IRT) 

235  FOPMaTUhO,  06H  WAVELENGTH  b  , 

1  F7.it  2IH  MICRONS  (FREQUENCY  •  ,  IPE9.2,  SH  GHZ)  /  IHO. 

21  1 OHSIZE  M.-.xIKUM  NUMBER  nF  NUMBER  FRACTION  MASS  FRACTJ 

30N  GROUP  MASS  COEFFICIENTS  (  FIRST  LINE,  CH2/GH  )  /  1H  , 
4120HGR0UP  DIAMETER  PARTICLfS  P£R  (NUH0ER  IN  GROUP  (MASS  IN  GR 

SOUP  AVERAGE  CROSS  SECTIONS  (  SECOND  LINE,  CM2/PARTICLE  )  /  1H  , 
bI3lH  (MICRONS)  GRAM  IN  GROUP  /TOTAL  NUMBER)  /TOTAL  MAS 

73>  extinction  absorption  scattering  backscatter  ) 

DO  260  IDG  b  J,  NOG 


DUST 

DUST 


A3L  HUN 

PROPAGATION  CONSTANTS 
(  SIZE  DISTRIBUTION  0 
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«6S 

066 

067 

068 

069 

070 

«7l 

072 

07J 

070 

075 

076 

077 

078 

079 

080 

«8| 

«82 

085 

080 

085 

086 

087 

088 

089 

090 

09| 

092 

093 

090 

095 

096 

097 

098 

099 

500 

501 

502 
505 


GO  TQ(  200#  260,  270  ),  IMAT 
200  IF(  CHUE*(10G,IRT)  .£0.  0.  )  Gn  TO  280 
CHUAA  *  CHUEA{  IDG#  IRT)  -  CHUS* ( IDG, IRT ) 

SIGEA  *  CHU£A( IDG# IRT }  /  PNGA(JDG) 

SIGAA  «  CNUAA  /  PNGA(IDG) 

SIG8A  *  CHUSA'!OG,IHT>  /  PNGA(IOG) 

SI 'BA  z  C0U8A t IDG# IRT)  /  PNGA(IOG) 

NRITEt JTAPE,  2S0)  IDg#  DGROUP(IOG)»  PNGA(IOG),  FNA(IDG),  FHACIOG), 

1  CHUEA  ( I DG,  IrT  )  #  CNUAA#  CNUSAt  IDG,  IRT)  , 

2  CHuBA(IDG#IrT),  SIGEA,  SIGAA,  8IGSA,  SIGBA 
250  FORHATUHO,  13,  Fll.l,  IPE15.S,  2E17.3,  EI5.3,  5EI0.3  / 

I1H  ,637,  1PEI5.5,  5£ 1 0 , "  ) 

GO  TO  277 

260  IF  (  CiUEBUOG.IRT)  .EG.  0.  )  GO  TO  280 
CHUA0  >  CMUE8 ( IDG, IH7 )  -  CmU3r( IDG, IRT) 

3IGEB  ■  CHUE8 (IDG, IRT)  /  PNGB(IOQ) 

SIGA8  ■  CMUAB  /  PNGB(IOG) 

SIGSB  *  CHUS8{IDG,IHT)  /  PNGB(IDG) 

SIGB8  s  CHU88 CIDG, IRT )  /  PNGB(IDG) 

HRITEtJTAPE,  265)  IDG,  OCROUP(IOC),  PNCB(IDG),  FNB(IOG),  F«8( IDG) , 

1  CHUEB  CIDG,  IqT),  CMUAB,  CMUSBtlOG, IRT) , 

2  CHU88UDG,  IRT),  SIGEB,  3IGAB,  3IG3B,  SIG68 
265  FORMAT (1M0,  13,  Fll.l,  1PE1S.3,  2E17.3,  E1S.3,  3E10.3  / 

11M  ,637,  IPE15.3,  3E10.3  ) 

GO  TO  277 

270  IF  C  CMUECtlOG.IRT;  .EO,  0.  )  GO  TO  280 
CHUAC  *  CMUECtlOG.IRT)  -  CMUSc ( ICG, IRT ) 

31GEC  *  CMUECtlOG.IRT)  /  PNGC(IOG) 

SIGAC  «  CHUAC  /  HNGCtlDG) 

3IG3C  ■  CMUSCtlDG, IRT)  /  PNGCtlOG) 

SIG8C  *  CHUBCtIDG.IRT)  /  PNGCfTDG) 

MRITE t JTAPE,  275)  IDr.,  Og»CUP(IOg).  PNCCCIDG),  FnCIIDG),  FHCtJDG), 

1  CMUECtlOG.IRT),  CHUAC,  CMUSCtlDG,  I  .IT), 

2  CMUSCtlDG, IrT),  SIGEC,  SIGAC,  3IG3C,  SIGBC 
273  F0RM*TflHO,  13,  Fll.l,  1PE15.3,  2E17.3.  EIS.5,  3E19.3  / 

1 1 H  ,637,  1  PE  15.5,  3E10.S  ) 


509 

505 

506 

507 
509 

509 

510 

511 

512 

513 
519 

515 

516 

517 

518 

519 

520 

521 

522 


C 

277  ILIUES  *  ILINES  ♦  3 

IF t  ILINES  .UT.  50  )  GO  TO  28o 
IlINES  *  7 

HRITEtJTAPE,  278  )  NPR08 

278  FORMAT 1 1H1 ,739  PROPAGATION  CONSTANT 

13  FOR  PROBLEM  NUMBER  ,  IS,  I2h  (CONTINUED)  /  /  1H0, 

211  OHS J7E  MAXIMUM  NUMBER  OF  NUMBER  FRACTION  HASS  FRACTI 

30N  0ROUn  M,;s  COEFFICIENTS  C  FIRST  LINE.  CM2/GM  )  /  1M  . 
OI20HGROUP  DIAMETER  PARTICLf*  PER  (NUMBER  IN  GROUP  (HASS  *V  GR 

SOUP  AVrftAGF  CROSS  SECTIONS  (  SECOND  LINE.  CM2/PART ICLE  )  /  lh  , 
612IH  (HJCRONL)  GRAM  IN  GROUp  /TOTAL  NUMBER)  /TOTAL  MAS 

73)  E7TINCTI0N  ABSORPTION  SCATTERING  BACK3CATTER  * 

C 

26P  CONTINUE 
C 

Go  TOt  281,  283,  285  ),  I HA T 
281  CHUAHA  *  CMl)EMA(IRT)  -  CMUSMA(IRT) 

MRJTE (JTAPE,  282)  CMUEMA(IRT),  CMUAMA,  CMUSMA(IRT),  CHU8MA ( IRT ) 
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5?3 

262 

FOPHATT  1  HO t  OH  ENTIRE#  55*,  1P0EI0.3/  IH  ,  I2HDISTRIBUTI0N  } 

52a 

GO  TO  £90 

525 

285 

CHUAxg  =  C«U£H9(IRT)  •  CHuSHR(IRT) 

52a 

»»)TF(JTAprf  geo)  CHUEM8URT),  CmiAHB,  CMUSHB(IRT),  CMU3MBURT) 

527 

?8S 

FORMA T  (  1H0,  9H  ENTIRE#  55*.,  lPaEIO.3/  1H  #  I2HDISTRIBUTI0N  ) 

526 

GO  TO  290 

52? 

265 

C.  .ahc  =  CKUEHCIIRT)  -  CHOSHC ( IRT } 

550 

HRITFiJTAPE,  286)  CMUEHCCIRT),  CMUAHC,  CHUSHC(IRT),  CHUBHCtIRT) 

551 

266 

FORHATf  1H0,  9H  ENTIRE/  55X,  1P0EI0.J/  1H  ,  I2HOISTRI8UTION  ) 

552 

r- 

55  > 

296 

Continue 

53c 

c 

'35 

70S 

CONTINUE 

53? s 

* 

53: 

f 

533 

r 

cBACT-ovi2AT-9N  SECTION 

53° 

o 

7“I»  SFCTJO  re Ot r TN£ 5  THE  “AsS  ^ACTIONS  AND  CROSS  SECTIONS  IN 

35-0 

; 

s:  OOP  POP  EACH  MATERIAL  TO  ACCOUNT  FO"  the  EFFECTS  OF 

5-5 

c 

TNACT’O.NIZ  t!'’N 

5d? 

c 

5J3 

c 

LOOP  L7ER  THE 'MATERIALS 

Sac 

O'!  6 !  0  IMAT  x  1,  3 

5-5 

r 

5-6 

5. 

SE -  The  S12:  OISTR;BUTION  has*  FRACTIONS  for  THIS  MATERIAL 

Sfl? 

SO  TO  (  oso,  £20,  £00  ),  IHAT 

5ae 

c 

5^0 

c 

Dust  -  NODE  A 

55* 

£00 

00  £ ! C  IDG  x  1,  NOG 

55' 

FNCUDG)  =  F“A(IOG) 

552 

SIC 

CONTINUE 

555 

r„  to  060 

55s 

c 

555 

c 

OUST  -  MODE  8 

556 

£20 

00  03C  #0G  x  1,  NDG 

557 

F“0C0G)  =  FM8CIDG) 

5SS 

aJO 

CONTINUE 

55? 

G!  Tn  066 

565 

c 

56- 

c 

C  ANCON 

5*  2 

sac 

Pn  £50  JOG  X  i,  NOG 

565 

pohCT  r.)  z  FKCTIPG) 

563 

«S0 

Continue 

565 

c 

566 

c 

calculate  the  partial  mass  fractions  t  h*ss  of  material  in  the  idg 

s  =  7 

c 

SIZE  GROUP  OIVlOED  Br  THE  SUM  Of  HASSES  IN  ALL  GROUPS  LARGER  THAN 

5&S 

c 

the  10G  SIZE  GROUP  ) 

56? 

060 

phass1* (NOG)  s  0. 

570 

?U“*SS  £  o. 

i 

0.  £70  LOG  x  2,  NOG 

5  2 

ICG  £  NOG  a  1  -  LOG 

573 

SU-A93  =  SUHASS  »  FMOtlOG  »  1) 

5’' 

phassFCIOG)  =  0, 

575 

I -  (  '  ;hass  .GT.  0.  )  PMASSFCIr.O)  =  F-;ir  )  /  SUNASS 

576 

070 

coni InuE 

577 

c 

573 

r 

Ca. CUL*»E  THE  N£H  HASS  FRACTION  FOR  EACH  SIZE  GROUP 

57? 

SU"P«F  I  0. 

563 

OO  520  !0G  x  1,  NOG 

1>  NOG 


IF C  IOC  .£0.  NOG  )  GO  TO  «7S 

IF(  FMOCIOG  ♦  I)  ,GT.  0.  )  FRifTI  a  J.  .  FRZT 

GO  TO  C  380,  390,  SOO  },  1MAT 

FMA(IOG)  a  FMACIDG)  •  (  FRZTI  ♦  FRZT  *  SUMPMF  ) 

GO  TO  510 

FmRCIOG)  =  FHH(IOG)  *  {  FRZT  1  ♦  FRZT  »  SUMPHF  ) 

GO  TO  510 

FIC(IOC)  *  FMCUDG)  »  {  FRZT  1  ♦  FRZT  *  SUMPMF  ) 

SUMPMF  =  SUMPMF  4  PMAS5FCI0G) 

CONTINUE 

CALCULATE  THE  CROSS  SECTIONS  FOR  EACH  SIZE  GROUP  FOR  EACH 
FREQUENCY 

LOOP  OVER  THE  FREQUENCIES 
00  60S  IRT  a  I,  NRT 

CHECK  IF  THIS  FREQUENCY  IS  THE  SAME  AS  A  PREVIOUS  FREQUENCY 
IF  I  ISKIP(IRT)  ,LE.  0  )  GO  TC  565 


FREQUENCY  IS  TH£  SAME,  USE  PREVIOUS  results 
IRTP  a  ISKIP(IRT) 

00  560  IDG  *  1,  NDG 

GO  TO  {  5 JO «  530,  550  ),  IMAT 

C*U£ A ( tOG, IRT )  a  CMUEACIOG, IRtP) 

CMUSAdDG,  IRT)  =  CMUSA(IDG.IRtP) 

CMURAdOG,  IRT)  =  CMURAdOG,  IRtP) 


CMUSAdDG,  IRT)  =  CMUSA(IOG.IRtP) 
CMURAdOG,  IRT)  =  CMURAdOG,  IRtP) 
GO  TO  560 

CmUERCIOG,  IRT)  *  CMUEBUOG.IRTP) 
CMUSRdOG.lRT)  a  CHUSB (  IDG.  IRtP) 
C«U6R dOG,  IRT)  a  CMURfldOG.  IRtP) 
GO  TO  560 

CHUEC ( IDG, IRT)  a  CMUEC ( IOG, IRf P) 


CmuSC ( IOG, IRT ) 

CHtlHCdOG.IRT) 
CONTINUE 
GO  TO  615 

frequency  not  t 
SU"E  a  0. 

5U“3  a  0. 

SU*B  a  0. 

Do  600  IOG  a  2, 
LOG  a  IOG  -  1 
FRZTI  a  I. 

IF (  IDG  .EO.  Nt 
IF  C  FMOIIUG  4  1 
GU  TO  C  570,  5< 
SOME  a  SUHE  4  f 
SU"$  a  SUMS  4  f 
SU“R  *  SUMR  4  t 
IF  C  F»A(IOG)  .1 
CMUEACIOG, IRT) 


chusccicg.irtp. 

CHURCCIDS.IPtP) 


THE  SAME,  DO  CALCULATIONS 


NOG  )  GO  TO  568 
1)  . GT ,  0,  )  FR7TI  a  1,  -  FRZT 
580.  590  ),  IHAT 
PMASSF(LOG)  «  ChUEACLDG.IRT) 
PMASSF(LOG)  «  CmUSACLDG.IRT) 
PMASSFCLOG)  «  CmUQA (LOG, IRT } 
.LE.  0.  )  GO  TO  600 


CHUSACIOG,  IRT)  a 
1  4 
C"UBAdOG,  IRT)  a 


a  FMO(IOG)  •  {  FRZTI  •  CMUEACIOG, IRT ) 
4  FRZT  *  SU»E  j  /  FMACIDG) 
a  FMOCIDG)  •  C  FRZTI  a  CMIISA C IDG,  IRT ) 
4  FR7T  4  SU«S  i  /  FMACIDG) 
a  FMDCIPG)  *  C  FRZTI  •  CHUBACIDG, IRT ) 
4  FRZT  4  SUMR  >  /  FMACIDG) 


555 

bbO 

b->\ 

f  =2 

baZ 

666 

bi 

6* 

666 

67  C 

67 1 

672 
67? 
675 

675 

676 

677 

678 
676 
6ft 
6?* 
51 

68  3 
685 
6*5 
586 
687 
68ft 


s>s? 
oe  = 

60S 

6<9$ 

6RK 


on  to  too 

S80  SUMS  =  SUME  ♦  PMASSF(LOG)  *  CmUES(LOG»  JRT) 

3U«S  =  SUMS  ♦  PH.ASSF(LPG>  •  ChUSR(LDG,IRT) 

SUMg  =  su“3  *  PHASSF (LOG)  *  CmUB8(L0G»1RT) 

IFf  PHfi(lDG)  ,L£.  6.  )  GO  10  feOO 

C=*t  EPTIOG,  *RT*  s  FMBUDCT  *  <  FPZT 1  »  CHUEBUOS.IRT) 
i  >  FRZT  *  SURE  j  /  FK3UDG) 

C-.iSRU0G.lST5  *  FmDUOG)  •  (  FPZT t  *  CNUSBI IDG.IRT) 

S  ♦  FSZT  •  SUMS  )  /  FMflUPG) 

CMuegil-s.IST)  =  FKDCnG)  *  !  FSZT i  *  CHUBBUDG.TRT) 

1  ♦  FPZT  «  SUMS  j  /  FKB(IDG) 

go  TO  603 

560  SOME  =  SUMS  s>  PmSSFCLOG*  *  CmUEC  (LOG,  1  ST ) 

Su-5  s  SU**S  ♦  PMASSFfLBG)  •  CmUSC CLDG,  1R1 5 

$U"R  ■  SW“H  ♦  PHASSF (LDG5  »  ChUBC  (LOG.  IRT5 

IF  (  F*»CUDG)  ,LE.  0.  )  GO  TSi  (.!>•:• 

CMUEC  ( TOG.  IRT  )  =  Fr.OUOG)  «■  (  FRZT  1  »  CM-UECUDG#  IRT ) 

;  ♦  FSZT  »  SU«t  5  /  FMC(IOG) 

C“USC(I05,1RT)  =  FXBUDG5  *  (  FRZTI  »  CHi-SCUOC,  IRT ) 
i  ♦  FRZT  i  SUMS  5  /  FMCUOG) 

C*iUPCt:DG,iR7)  t  FMOfKiS  •  C  FPZT 1  *  CHUBC(  IDG,  IRT ) 

1  *  FSZT  >  SUM-3  )  /  FMCUOG) 

600  CFMT ;sut 

6w$  'QNTINUE 

SIC  C?«i:»iUE 

M-'TTE  OUT  IMF  PROPAGATION  PARAMETERS  INCLUDING  THE  EFFECTS  OF 

t-  AC  T I  ON I Z A i TOW 
O'j  £00  1MAI  =  1,3 
00  TBS  i  t  =  J ,  KST 

ChFC*  IF  THIS  FRECUENCt  IS  thj  SAME  AS  A  PREVIOUS  FREQUENCY 
IF  50  Snl°  REPRINTING  The  PROPAGATION  PARAMETERS 
IF t  TS<IP(1PT)  .07.  0  )  GO  TO  760 

SET  PRINT  1  TNE  COUNTER 
iLlNFS  =  !} 


MSJTf (J'APE,  6IS)  RPROR 

SIS 

in  10".  DUST  CLOUD  MODEL  /  / 
JIhC.TBn 

l  '0=  PROBLEM  NUMBER  ,  u  / 

a*s  r  Jin 

';"5  INCLUDED  5  1 

GO  -n  <  6Z3,  650,  6hO  1,  IMAT 

6Z0  mp, TE ( Jt *?E ,  S30) 

630  F00MATCIK3, JOH 

IPARTJCLES  -  MODE  A  ) 

GO  Tn  £30 


A si  «UN 

PROPAGATION  CONSTANTS 
(  FRACTION j  Z AT  I ON  EFf 


6«5 


MBIT£(JTAPE,  oSO) 


94 


DUST 


697 

696 

699 

700 

701 

702 

703 
709 

705 

706 

707 

708 

709 

710 

711 

712 

713 
719 

715 

716 

717 

718 

719 

720 

721 

722 

723 

729 

725 

726 

727 

728 
72» 

730 

731 

732 

733 
739 

735 

736 

737 

738 

739 

790 

791 
702 
793 
799 

795 

796 

797 
796 
799 

750 

751 

752 

753 
759 


650  FORMAT < 1H0, 70H 

1  PARTICLES  •  MODE  fl  ) 

GO  TO  680 

660  MR  I T£ ( J  T  APE,  670) 

670  FORMAT(!HO,66H  C* 

1RBON  PARTICLES  ) 

C 

680  MRITEUTAPE,  690)  XLAMDA(IRT),  FREO(IHT) 

690  FORMAHlHO,  96H  MAVELENGTH  s  , 

1  F7.1,  21H  MICRONS  (FREQUENCY  *  ,  IPE9.2,  5H  GHZ)  /  1M0, 

2  76HSIZE  MAXIMUM  HASS  FRACTION  GROUP  HASS  COEFF1CIE 

3NIS  (  CHZ/GM  )  /  1H  . 

9  86HGR0UP  DIAMETER  (MASS  IN  GROUP  EXTINCTION  ABSORPTION  S 
SCATTERING  flACKSCATTER  / 

6  30H  (MICRONS)  /TOTAL  HASS)  /  1H  ) 

C 

00  780  IDG  *  1,  NOG 
C 

GO  TO  (  700,  720,  790  ),  IMAT 
700  IF (  CMUEA(IDG^IRT)  ,EQ,  0.  )  r.O  TO  7S0 
CHUAA  *  CHUEA(IDG,IRT)  -  CMUSa(IOG,IRT) 

NRI TF ( JT APE r  710)  IDG,  OGHOUPcIOG),  FMA(IDG),  CMUEA( IDG, IRT ) , 

1  CHUAA,  CHUSa(IDG,IRT),  CMU8A ( IDG, IRT ) 

710  FORMAK1H  ,  13,  Fit. I,  1PEIS.J,  2X,  9E19.3  ) 

GO  TO  760 
C 

720  IF (  CHUEB(IOG,IRT)  ,EO.  0.  )  fiO  TO  780 
CHUAR  =  CMUER(IDG,IRT)  -  CMUSpdOG,  IRT) 

MRITEUTAPE,  730)  IDG,  OGROUPf IDG)  ,  FM£ C IDG) ,  CMUEB( IDG, IRT) , 

1  CHUAB,  CMUSr(IOG,IRT),  CHUBB ( IDG, IRT ) 

730  FORMAT ( IH  ,  II,  Fit.!,  1PEI3.3,  2X,  9E19.J  ) 

GO  TO  760 
C 

790  IF (  CMUEC (IDG, IRT)  ,E0.  0.  )  GO  TO  780 
CHUAC  *  CHUEC(IOG,IRT)  -  CHUSc(IDG,IRT) 

MRITEUTAPE,  750)  IDG,  DGROUP(IOG).  FMCUDG),  CMUEC  ( IDG,  IRT) , 

1  CHUAC,  CMUSc(IDG.IRT),  CMUBT ( IDG, IRT ) 

750  FORMAT ( IH  ,  J3,  Fll.l,  1PE1S.3,  2X,  9E19.3  ) 

C 

760  ILINES  =  ILINES  ♦  1 

IF(  ILINES  ,LT.  50  )  GO  TO  780 
ILINES  3  7 

MRITEUTAPE,  770  )  NPROB 

770  FORMAT ( IH * , 73H  PROPAGATION  CONSTANT 

13  FOR  PROBLEM  NUMBER  ,  13,  12h  (CONTINUED)  /  /  1H0, 

2  76HSIZE  MAXIMUM  HASS  FRACTION  GROUP  MASS  COEFFICI6 

INIS  (  CH2/GM  )  /  IH  , 

9  B6HGR0UP  DIAMETER  (MASS  IN  GROUP  EXTINCTION  ABSORPTION  8 
SCATTERING  BACKSCATTER  / 

6  30H  (MICRONS)  /TOTAL  h*3S)  /  |H0  ) 

C 

780  continue 
c 

790  CONTINUE 

c 

800  continue 
c 

return 


755  C 

756  ENO 
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1 

2 

J 

a 

5 

6 
r 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
2  * 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
61 
«2 
«3 
«a 
05 
Ob 
07 
08 
09 
SO 
55 

52 

53 
50 
S5 
Sfc 

57 

58 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  CGROUP 

THIS  SUMP0UT1NE  CALCULATES  THf  SCATTERING  AND 

p*RAH£f£ps  fur  a  given  sue  group,  the  range  of 

^iS.TlCh°^fI2E3  IN  THE  Sl2£  GPnUP  CAN  HE  ONLY  A  SHALL  SUBSET  OF  THE 
KHOLE  PARTICLE  DISTRIBUTION  R»NGE  OR  CAN  INCLUDE  THE  WHOLE 

distribution,  three  types  of  particle  size  probability 

DISTRIBUTIONS  ARE  ALLOWEO  -  Lo®  normal,  POWER  LAN,  OR  HYBRID!  A 
LOG  NORMAL  JOINED  TO  A  POWER  L**  ) 

VARIABLES  FROM  CCGR=  COMMON 

*  number  of  the  given  size  group 
a  1  Th£  PARTICLE  SIZE  DISTRIBUTION  IS  LOG  NORMAL 

COMPUTE  PARAMETERS  INCLUDING  SCATTERING  PATTERN 
"HE  PARTICLE  SIZE  DISTRIBUTION  is  LOG  NORMAL 
COMPUTE  PARAMETERS  t  NO  SCATTERING  PATTERN  ) 

2  ThE  PARTICLE  SIZE  DISTRIBUTION  IS  POWER  LAN 
COMPUTE  PARAMETERS  I;  CLUDING  SCATTERING  PATTERN 

-2  The  PARTICLE  SUE  DISTRIBUTION  IS  POWER  LAW 
COMPUTE  PARAHETERs  i  NO  SCATTERING  PATTERN  ) 

3  THE  PARTICLE  SIZE  DISTRIBUTION  IS  HYBRID 
COMPUTE  PARAMETERS  INCLUDING  SCATTERING  PATTERN 

-3  THE  PARTICLE  SIZE  0ISTR1  ,UTION  IS  HYBRID 
COMPUTE  PARAMETERS  (  NO  SCATTERING  PATTERN  ) 

THE  PARTICLES  ARE  SPHERICAL,  USE  STANDARD  HIE  THEORY 

*  t  THE  PARTICLES  A  £  NO'  SPHERICAL,  USE  MODIFIED  MJE 

theory 

*  LOWER  LIMIT  OF  PARTJCLE  DIAMETER  RANGE  t  CH  ) 
s  UPPER  LIMIT  OF  PAR" f CLE  DIAMETER  RANGE  {  CM  ) 

-"CAN  DIAMETER  PARAtiEtF.R  FOR  LOG  NORMAL  AND  HYBRID 
DISTRIBUTIONS  (  CM  ) 

standapd  deviation  Parameter  for  log  norhal  and  hybrid 
DISTRIBUTIONS 

minimum  PARTICLE  DIAhEIER  FOR  power  law  and  POINT  at 
WHICH  log  NORHAL  and  POKER  LAW  JOIN  IN  HYBRID 
DISTRIBUTION  (  CM  ) 

maximum  particle  OiahEIEr  for  power  la«  and  hybrid 
DISTRIBUTIONS  (  cm  ) 

pohfp  l*w  exponent  for  the  power  law  and  htbp>o 

PROBABILITY  DISTRIBUTIONS 

>  wavelength  of  the  incident  radiation  t  ch  j 
1  R£A>-  PARI  OF  THE  Complex  indfx  Or  refraction  of  The 
^articles 

.  IMAGINARY  part  of  ThE  complex  index  dc  refraction  of  the 
particles  i  the  index  is  h  »  xr  *  i»xi  so  that  both  xr 
and  xj  are  positive  ) 
density  of  the  particles  c  gh.'chj  j 


wspher 

olow 

DHIGH 

OH 

s 

OHIN 

Oh.x 

t> 

WL 

XR 

XI 

RHO 


I 


calculated  parameters,  outputs  to  ccgrp  cchhon 


png 


fs 


FM 

SlGA 


SVF  PARTICLES  per  gram  (  OF  MATERIAL  IN  THE  SIZE 

=  number  fraction  of  Particles  in  size  group  <  ratio  gf 
number  OF  PARTICLES  IN  size  group  to  total  number  op 
PARTICLES  in  DISTRIBUTION  ) 

=  Mass  FRACTION  (  RATIO  OF  MAS3  OF  PARTICLES  IN  SIZE 
group  to  total  mass  ?n  distribution  > 

=  average  absorption  cross  section  per  particle 
in  The  GROUP  (  CMS  j 


96 


. . . . . 


3109  «  AVERAGE  SCATTERING  CROSS  SECTION  PER  PARTICLE 

IN  i HE  GROUP  (  CM2  j 

SIGE  ■  AVcRAGt  EXTINCTION  qROSS  SECTION  PER  PARTICLE 
IN  the  GROUP  !  CH2  } 

SIGS  «  AVERAGE  CACKSCATTER  CROSS  SECTION  PER  PARTICLE 
IN  THE  GROUP  (  CH2  ) 

SPN  *  NORMALIZED  SCATTERING  PATTERN  FOR  THE  PARTICLES  IN  THE 
GIVEN  SIZE  RANGE  DLO*  TO  DHIGH,  SPN(J)  *  SCATTERING 
FUNCTION  AT  THE  SCATTERING  ANGLE  WHOSE  COSINE  IS 
0.1*(J-ll),  SPN  IS  NORMALIZED  SO  THAT  THE  INTEGRAL  OF 
SPN  OVER  «  PI  STERAoIANS  EQUALS  A  PI  (  IE,  AN  ISOTROPIC 
SCATTERING  PATTERN  HAS  SPN(J)  *  1.0  FOR  ALL  J  ) 

CMUA  *  HASS  ABSORPTION  COEFFICIENT  (  CM2/GM  ) 

where  the  GRAM  of  mass  penetrated  refers  to  the  mass 
OF  PARTICLES  IN  the  8IZE  GROUP 
CHUS  »  HtfS  SCATTERING  COEFFICIENT  <  CH2/GH  ) 

CMUE  *  HASS  EXTINCTION  COEFFICIENT  <  CH2/GH  ) 

CHUS  «  HASS  SACKSCATUH  COEFFICIENT  t  CH2/GH  ) 

THE  HASS  COEFFICIENTS  ARE  CALCULATED  BY  MULTIPLYING  THE  AVERAGE 

CROSS  SECTION  PER  PARTICLE  BY  THE  NUMBER  OF  PARTICLES  PER  GRAM 

NOTES 

THE  PROBABILITY  DISTRIBUTIONS  ARE 

LOG  NORMAL  *  EXPf  -0.5* (LNID/pM) /LN(S ) ) *«2  )/(  30RT(2*PI )*D»LN(3) ) 
hHERE  0  *  PARTICLE  DIAMETER  (  CM  ) 

POWER  LAW  a  {p-n*D**(-Pl/(OMjN**U-P)-DMAX*»(l-P)) 

HYBRID  *  Cl  •  LOG  NORMAL  FOR  n  BETWEEN  0  AND  DMIN 

s  C2  •  POWER  LAW  FOR  0  BETWEEN  DHIN  AND  OHAX 
WHERE  Cl  AND  C2  ARE  NORMALIZING  CONSTANTS  WHICH  INSURE  THAT 
THE  INTEGRAL  OVER  THE  hYBRIO  PROBABILITY  DISTRIBUTION  FROM 
0  TO  OHAX  EQUALS  ONE,  aND  THAT  THE  LOG  NORMAL  AND  POWER 
LAM  DISTRIBUTIONS  JOIN  AT  dnin 

DIMENSION  SPNLN(21),  SPNPLI2I j 

SET  VALUE  OF  PI 
DATA  PI  /  J. 10159265  / 

Common  /  CCORP  /  wcrp,  MSIZE,  msphER,  plow,  dhigh,  dm,  s,  ohin, 

1  OHAX,  P,  XR,‘  XI,  RHO,  PNG,  FN,  fH,  JIGA,  SICS, 

2  SIGE,  SIGB,  SPN(21),  CMUA,  CHUS,  CHUE,  CHUB,  *L 

ZERO  OUT  VARIABLES 
SIGALN  *  0. 

SIGSLN  a  0. 

SIGELN  a  0. 

SIGBLN  «  0. 

SIGAPL  *  0. 

SIG3PL  *  0. 

3IGEPL  *  0. 

SIG8PL  *  0. 

DO  5  I  a  l,  2t 
SPNLNt  I  )  a  0. 

SPNPU  I  )  *  0. 

5  CONTINUE 


c 


1  !  6 

117 

118 

119 

120 
121 
122 
125 
12a 

125 

126 

127 

128 
1 29 
1  JO 
1  Jl 
1 32 
153 
1  50 
1J5 
1 56 
1 3T 

1  jo 
1  >r- 
ioo 
I«1 
102 
105 
100 

105 

106 

107 

108 
loo 

150 

151 

152 
155 
1 5'J 
155 
158 

is: 

158 

159 

160 
161 
162 
165 
160 

165 

166 

167 

168 

169 

170 

171 

172 
I  7  5 


C 

C 


default  values 
1F(  M3I7E  .£0.  0  >  GO  TO  8J 
IFf  MSPHER  .£0.  0  )  MSPHER  3  1 
IF  t  RHO  , EO.  0.  5  RHQ  s  2.5 

CHECK  THU  GROUP  SIZE  RANGE  Is  RITHIN  SIZE  DISTRIBUTION  LIMITS 
IFf  KL  .LE.  0.  )  GO  10  BJ 
IMSI7E  s  I ABS (  hGiZE  ) 

IFf  OLQN  .GE.  OHTGH  I  GO  TO  Bj 
I F (  OLOW  .LT.  0,  )  DLOW  *  0, 

IFf  IHSIZE  ,eo.  1  j  GO  TO  80 

IFf  !M$IZE  ,E0,  2  .AND.  DL08  .'LT.  OHIN  )  OLOH  *  DHJN 
IFf  OHTGH  .GT.  OHAX  i  DHIGH  *  DMA* 

IFf  CLO*  .LT.  0H1GH  )  GO  TO  8a 


8 J  SIGA  s  0. 

SIGS  =  0. 

SIGE  =  0. 

SIC-8  o  0. 

PNG  =  0. 

FN  s  0. 

FH  s  0. 

GO  TO  156 
C 

C  CHECK  -«ICH  IUS5.9ISUTION  IS  Tn  BE  USED 
SO  GO  Iflf  85.  95,  119  },  IHSIZE 

c 

c 

C  DISTRIBUTION  I?  log  NORMAL 

C  COMPUTE  NUMBER  AND  Mass  FRACTIONS 

85  ALNS  9  ALOGC  3  I 

sm  *  -i. 

EN1  3  0. 

FM1  -  0. 

S02  s  ALOGf  OMIGH  /  DM  )  ,  ALllS 

SOJ  e  5.  *  ALN3 

IFf  f>LON  .  LE .  0.  )  GO  TO  90 

SOI  *  ALOGf  OLOK  /  DM  )  /  ALN's 

FNl  r  CUMHORf  SD1  i 

FmI  3  CUMNORC  SOI  -  SOJ  I 

90  FN2  x  CUHNORf  S02  I 

EH2  s  CuMNCRf  S02  -  SC5  ) 

IFf  301  *  S02  .LE.  0.  )  GO  TO  91 
Fn  3  FNl-  EN< 

IFf  3D2  .LT,  0.  )  FN  3  -  FN 
GO  TP  92 

91  FN  =  1.  -  FIJI  -  FN2 

9?  IFf  f  SD1  -  S05  )  «  f  S02  -  sr>3  )  .LE.  0.  )  GO  TO  9J 
FH  3  FM1  -  FM2 

IFf  SD2  -  SOJ  .-lT.  0,  )  FH  3  .FH 
GO  TO  90 

oj  FH  3  -  FH!  -  FH2 

C 

c  compute  average  cured  diameter  oe  group 

90  OJtV  3  FH  *  0H»»3  *  FxPf  9.  *  ALNS**2  /  2.  )  /  FN 

C  COMPOTE  CR0S3  SECTIONS  AND  SCATTERING  PATTERN!  FOR  POSITIVE  MSJZE 
CALL  CROSS!  msizf,/  msPHEK,  OLo*i  OHJGH,  OH,  S,  DUH,  HL ,  XR,  XI, 


98 


SIC**  SICS*  S1GE*  SIGB*  SPN  ) 


17* 
17$ 
17b 
177 
179 
179 
190 
161 
167 
1 63 
160 

185 
166 
187 

186 

189 

190 

191 

192 

193 
190 

195 

196 

197 

198 

199 

200 
201 
202 
203 
200 

205 

206 
207 
206 

209 

210 
211 
212 
213 
210 

215 

216 
217 
216 

219 

220 
221 
222 
223 
220 

225 

226 
227 
229 
229 
330 
231 


1 

GO  TO  155 
C 
C 

C  DISTRIBUTION  IS  POKER  LAW 

C  COMPUTE  NUMBER  AND  HASS  FRACTjON 

95  OMP  *1.-3 

FN  a  {  DLOH  ••  QHP  -  DHIGH  *•  OMP  )  /  (  DMIN  »»  OMP  -  OHAX  »*  OMP) 
!F<  o  ,£Q.  0.  j  GO  TO  100 
FMP  s  0,  -  P 

FM  s  (  DLON  *•  FMP  -  DHIGH  **  FHP  )  /  t  DMIN  *»  FMP  *  DHAX  •*  FMP) 
SO  TO  105 

100  FM  s  ALUCI  OHIGH  /  DLON  )  /  A-,OG  (  DHAX  /  DMIN  ) 

C 

C  COHPUTE  AVERAGE  CUBED  DIAMETER  Cc  GROUP 
105  CONI  a  -OHP  /  (  OMIN  »»  OMP  •  OHAX  **  OMP  ) 

IF (  P  .EG.  q.  )  GO  TO  110 

DSAVT  *  CONI  t  (  DHAX  »•  FMP  _  THIN  *«  FHp  )  /  FMP 
GO  TO  115 

110  OSAVT  =  CONI  *  ALOG!  OMAX  /  OmIN  ) 

115  03*V  a  03AVT  i  FM  /  FN 
C 

C  COMPUTE  CROSS  SECTIONS  AND  SCATTERING  PATTERN!  FOR  POSITIVE  MSIZE) 
CALL  CROSS!  MSIZE*  HSPHER*  DLOM*  DHIGH*  OMIN,  DHAX,  P,  ML*  XR,  XI, 
1  SIGA,  S1GS,  SIGE*  SIGB,  SPN  ) 

GO  TO  155 
C 

c 

C  DISTI8UT1UN  is  HVfiRIO 

C  PRELIMINARY  CALCULATIONS.  00  ONLY  ONCE 

C 

118  IF!  MGRP  .GT.  1  )  go  TO  126 
C 

C  COMPUTE  NORMALIZING  CONSTANTS  Cl  AND  C2 
OMP  a  1.  -  P 

PP1  a  -UMP  *  OMIN  *•  I  -P  )  /  I  OMIN  •*  OMP  -  DHAX  »•  OMP  ) 

ALNS  a  ALOG!  S  ) 

SOI  r  ALOG!  DMIN  /  DM  )  /  ALNj 

PLI  *  EXP!  .SOI  *»  2  /  2.  )  /  !  SORT!  2.  •  PI  )  *  DMIN  •  alnS  ) 

CUN  x  CUMNOR  !  301  ) 

IF!  SD1  .GT.  0.  )  CUM  a  1.  -  cUH 
C2  =  1.  /  I  1.  ♦  CUM  *  ppi  /  »L1  ) 

Cl  a  C2  •  PPI  /  PLI 
C 

C  CALCULATE  THE  NUMBER  AND  HASS  FRACTIONS  OF  THE  LOG  NORMAL 

C  POKER  l*K  SEGMENTS  OF  THE  HYBRID  DISTRIBUTION 

FnPL  =  C2 
FNLN  i  1,  .  C2 

OSAVLN  *  DM  ..  3  •  EXP!  9,  •  aLNS  •»  2  /  2.  ) 

CONI  r  -fJHP  f  i  OMIN  »•  OMP  .  DHAX  **  OMP  ) 

IF!  P  .EO.  q.  )  GO  TO  120 
FMP  x  a.  -  p 

D3AVPL  *  CONI  •  !  OHAX  *•  FMP  -  DMIN  ••  FMP  )  /  FHP 
GO  TO  125 

120  03*VPl  *  CONI  *  ALOG!  OHAX  /  DHIN  ) 

125  CUH  =  CUMNOR!  SOI  *•  3.  *  ALNS  ) 

IF!  SOI  -  3.  •  ALNS  .GT.  0.  )  CUH  a  I.  -  CUM 
OSAVM  x  Cl  *  D3AVLN  •  CUM  ♦  C?  •  D3AVPL 


232 

FhP(.  a  C2  *  ri3*vPL  /  D3AVH 

235 

FMlN  at.-  FhPl 

230 

126 

continue 

235 

C 

236 

C 

COMPUTE  THE  NUK3ER  FRACTION  A,iD  HASS  FRACTION  FOR  THAT  PART  OF  THE 

237 

r 

SUE  GROUP  THAT  LIES  IN  THE  LnG  NORMAL  PORTION  OF  THE  HYBRID 

236 

C 

DISTRIBUTION 

239 

FnRLN  a  0. 

2UO 

FHC-L’l  a  0. 

201 

IFi  OLOw  ,GE.  OhIN  J  go  to  13? 

2<T 

P'lPPfR  a  AXJNK  OHIGHi  OHIN  ) 

2oi 

FNl  a  0. 

2aa 

F**l  aC. 

205 

3 ill  a  -1. 

2e  & 

50?  a  ALOC-i  SUPPER  /  DM  )  /  AlNS 

207 

303  a  J.  •  ALNS 

?r» 

!F(  BLOr  .LE.  0.  )  GO  TO  130 

2-o 

SOI  a  1LI?G(  ULnw  /  OH  )  /  ~LNs 

250 

Fni  a  CicNiOR'  SD!  ) 

251 

FH1  a  CU«NOp(S01  -  SD3  ) 

252 

130 

FU2  a  CUHNORi  302  ) 

253 

FH2  a  CUHNORi  9D2  -  SDS  ) 

?5a 

IF  C  SOI  *  $02  .LE.  0.  1  GO  TO  1  Si 

255 

FNGLN  a  Cl  *  <  FN1  »  FN2  ) 

256 

IF  f  302  ,LT.  0.  }  FNGLN  a  -FNgLN 

257 

GO  rn  132 

259 

131 

FnGln  a  Cl  .  (  1,  -  FN1  -  FN2  ) 

259 

132 

IF C  (  SOI  -  S03  1  *  f  SD2  -  SrS  j  .LE.  0.  )  GO  TO  133 

265 

FkGLN  a  Ct  .  03AVLN  *  i  FH1  -  FMJ  }  /  03AVH 

261 

IFi  S02  -  S03  ,LT.  0.  )  FHGLN  =  -FNGLN 

262 

GO  TO  130 

263 

133 

FHGLN  r  Cl  *  03AVLN  *  .  -  fM  -  FM2  )  /  D3AVH 

260 

C 

265 

C 

COMPUTE  CROSS  SECTIONS  FOR  TNjS  PORTION  OF  THE  SI2E  GROUP 

c  66 

1  3c 

HSIZEH  a  I 

267 

IFi  HSIZE  .LE.  0  )  HSIZEH  a  -j 

269 

CALL  CROSS!  MSIZiH,  KSPHES,  DLnH,  DUPPER,  OH,  Sf  DUM,  ML.  XR,  XI, 

269 

1  SIGALN,  SIGSLN,  SiGELN,  SIGBLN,  3PNLN  ) 

270 

C 

271 

C 

CU"PUTE  THE  NUMBER  FpACTlllN  AuO  H*SS  FRACTION  FOR  THAT  PART  OF  THE 

272 

C 

SIZE  GROUP  that  LIES  IN  The  Pn^ER  LAH  PORTION  OF  THE  HYBRID 

273 

C 

DISTRIBUTION 

270 

135 

FNGPL  a  0. 

275 

FhGPL  sO. 

276 

IFI  OHIGH  ,LE.  OHIN  )  GO  TO  1«7 

277 

0LONFR  a  AKAXU  OLOh,  OHIN  ) 

279 

FNGPL  a  C2  *  i  OLOHFR  »•  UHP  -  OHIGH  »*  OHP  )  /  {  OHIN  **  IMP 

279 

1  -  UKAX  **  OHp  ) 

280 

IF (  P  .EG.  0.  )  GO  TO  100 

2«1 

FHGPL  a  FMPL  *  (  OLOwER  **  FHp  -  OHIGH  ••  FHP  )  /  (  OHIN  •*  FilP 

262 

1  -  DMA X  ••  FHp  ) 

29  3 

GO  TO  10S 

28a 

l  o  Q 

FhGPL  =  FMPL  •  ALUGi  OHIGH  /  nLUHER  )  /  Al0G(  DKAX  /  D«IN  ) 

285 

C 

286 

r 

COMPUTE  CROSS  SECTIONS  FOR  THjS  PORTION  OF  THE  SIZE  GROUP 

287 

105 

HSIZEH  a  2 

286 

IFi  M3IZE  .LE.  0  )  HSIZEH  r 

289 

CALL  CROSSi  HSIZEH,  “SPhER,  D|  0"ER,  OHIGH,  D«IN,  OHAX,  P,  ML,  XR, 

100 


X],  SICAPL,  S:CSPl,  SIGEPL,  3ICSPL,  3PNPL  ) 


COMPUTE  NUMBER  AND  MASS  FRACTIONS  FOR  THE  SIZE  CROUP 
147  Fn  *  FNCLN  ♦  FNCPL 
FH  a  FKGtN  ♦  FMGPL 

COMPUTE  AVERAGE  CUBED  OIAHlTcr  OF  CROUP 
D3AV  *  FH  *  DJAVH  /  FN 

compute  cross  sections  for  THr  nhole  size  group 

CUNJ  a  FNCLN  /  (  FNGLN  ♦  FNGPl  ) 

COM2  a  1.  -  CONI 

SICA  a  CONI  *  SIGALN  ♦  COM2  •  SICAPL 

SICS  a  CONI  •  SICSLN  ♦  COM2  a  SIG3PL 

SlGc  *  CONI  •  SIGELN  ♦  C0N2  »  3ICEPL 

SIGB  a  CONI  •  SIGBLN  ♦  C0N2  *  S1CBPL 

COMPUTE  NORMALIZED  SCATTERING  PATTERN  FOR  POSITIVE  NSIZE 

IF C  NSIZE  .LE;  0  )  CO  to  I5S 

CONI  a  CONI  *  SICSLN  /  SICS 

C0N2  a  I,  -  CONI 

DO  ISO  I  «  I,  21 

SPNC  I  J  a  CONI  *  SPNLNl  I  I  ♦  CON2  •  SPNPLC  I  I 
ISO  CONTINUE 


compute  number  of  particles  pfr  cram  of  material  in  the  croup 

!5S  PNC  a  6.  /  C  PI  *  RHO  »  D3AV  J 

COMPUTE  MASS  COEFFICIENTS 
1S6  CM'JA  a  PNC  •  SICA 

CMU3  a  PNC  •  StCS 

CMUE  «  PNG  •  StCE 

CHUB  a  PNG  •  S,CB 


THE  CALCULATION  FOR  THIS  SIZE  CROUP  ARE  COMPLETE 
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1 

2 

3 

a 

5 

6 
7 
e 

9 
10 
1  < 
12 
13 

is 

i<» 

17 

1R 

19 

20 
2! 
22 
23 
20 
2S 
2b 
27 
2ft 

29 

30 

31 

32 

33 
3o 

35 

36 

37 
3a 

39 

00 

01 

02 

03 

00 

os 

06 

07 

06 

09 

50 

51 

52 

53 
So 

55 

56 

57 
56 


SUBROUTINE  CROSS!  MSIZE,  MSPHfR,  GLOW,  DHIGH,  DIM,  C23,  P,  WL»  XR, 
1  XI,  SIS*.  SlGS,  SIGE.  3IGB,  3PN  ) 

C 

c 

c  this  routine  calculates  the  Average  absorption,  scattering. 

C  EXTINCTION  ANO  IJACKSCATTER  CROSS  sections  per  particle  and  the 
C  NORMALIZED  SCATTERING  pattern  for  particles  kith  diameters  in  the 

C  SIZE  interval  OLOw  If)  DHIGH.  THESE  PARTICLES  are  a  subset  of  a 

C  COLLECTION  OF  PARTICLES  WHOSE  SIZE3  HAVE  A  LOG  NORMAL  OR  A  POMER 
C  LAN  PROBABILITY  DISTRIBUTION,  the  PARTICLES  CAN  BE  SPHERICAL  OR 

C  NJJNSPHERICAL 

r 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


inputs 


HSIZE 


HgPHER 


OLON 

DHIGH 

OIH 


02S 


p 

ML 

XR 

XI 


3  1  The  PARTICLES  HAVf  A  LOG  NORMAL  SIZE  DISTRIBUTION, 
CC“PUTE  C“OSS  SECTIONS  AND  SCATTERING  PATTERN 

*  -1  THE  PARTICLES  HAyE  A  LOG  NORMAL  SIZE  DISTRIBUTION, 

COMPUTE  CROSS  SECTIONS 

s  2  THE  PARTICLES  HAVr  A  POWER  LAh  SIZE  DISTRIBUTION, 
COMPUTE  CROSS  SECTIONS  AND  SCATTERING  PATTERN 

*  *2  THE  PARTICLES  HlyE  A  POWER  LAW  SIZE  DISTRIBUTION, 

COMPUTE  CROSS  SECTIONS 

=  I  THE  PARTICLES  ARE  SPHERICAL,  USE  STANDARD  HIE  THEORY 

=  2  the  particles  are  nonspherical.  use  modified  hie 
theory 

r  LOWER  limit  CF  PARTICLE  DIAMETER  range  a.  WHERE  l  is  a 
length  unit  SUCH  AS  MICRGH3,  CENIIHETERS.  METERS.  ETC.  ) 
3  UPPER  LIMIT  OF  PaRTiCLE  DIAMETER  RANGE  CL) 

3  mean  diameter  parameter  for  the  log  ngshal  distribution 

CLl 

a  iiJNJHU*  DIAMETER  OF  POWER  LAN  DISTRIBUTION  (L) 

*  STANDARD  DEVIATION  PARAMETER  OF  THE  LOG  NORMAL 
DISTRIBUTION 

3  MAXINUH  DIAMETER  OF  THE  POWER  LAW  DISTRIBUTION  CL) 

*  POWER  Law  EXPONENT  nF  THE  POWER  L*w  DISTRIBUTION 

*  "avelength  of  the  incident  radiaiion  id 

*  real  part  of  the  complex  index  OF  refraction  of  the 

PARTICLE3 

.  IMAGINARY  part  of  The  COMPLEX  Index  of  REFRACTION  CF  the 
PAPIICLES  {  The  IND£X  IS  M  =  XR  -  I»XI  SO  THAI  BOTH  XR 
AND  XI  APE  POSITIVE  7 


OUTPUTS 

SICA  =  AVERAGE  ABSORPTION  CROSS  SECTION  PER  PARTICLE  C  L**2  ) 

SICS  3  average  SCATTERING  cRUSS  SECTION  PER  PARTICLE  (  L**2  ) 

SIGE  3  AVERAGE  EXTINCTION  CROSS  SECTION  PER  PARTICLE  I  L««2  ) 

SICS  3  AVERAGE  BACKSCATTER  CROSS  SECTION  PER  PARTICLE  (  L«*2  ) 

3PN  3  NORMALIZED  SCATTERING  PATtER»;  FOR  the  PaRT’CLES  IN  THE 
given  SIZE  RANGE  OLoN  TO  DHJGH.  SPN(JJ  =  SCATTERING 
FUNCTION  AT  THE  SCATTERING  ANGLE  WHOSE  COSINE  IS 
0,!»(J-ll),  SPN  IS  NORMALIZED  SO  THAT  THE  INTEGRAL  OF 
SPN  OVER  o  PI  STERAoIANS  EOUALS  a  PI  C  IE,  AN  ISOTROPIC 
SCATTERING  PATTERN  hAS  SPN(J)  i  1.0  FOR  ALL  J  ) 


NOTES 

the  UN  I T  3  TO  BE  USED  FOR  LI  IfNSTH  )  ARE  THE  USERS  CHOICE,  BUT  ALL 
DISTANCE  INPUTS  -  DLO* ,  DHIGH,  DIM,  02S(  FOR  POWER  LAW  ),  ML  - 
"UST  BE  IN  THE  SAME  UUT3,  THp  CROSS  SECTION  OUTPUTS  -  SIGA,  SIGS, 
SIGE,  SIG8  -  ARE  THEN  IN  UNITS  OF  L*«2 
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5? 

66 

61 

62 

63 

64 

65 

66 
67 
6S 
69 
79 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
«1 
82 

83 

84 
65 
86 
67 
88 

89 

90 

91 

92 

93 

94 

95 
9fr 

97 

98 

99 
1  00 
1 01 
102 
103 
109 

105 

106 
107 
toa 

109 

110 
lit 
112 

113 

114 
US 


the  outputs  calculated  nr  this  routine  ape 

CROSS  SECTIONS  -  OWE  DIVIDED  rT  FN  TIMES  THE  INTEGRAL  OVER 
PARTICLE  DIAMETER  FHON  PL0W  TO  OHIGH  OF  PROBABILITY 
DISTRIBUTION  TIMES  CROSS  SECTIONAL  AREA  <  Pi  •  DIAMETER  /  4) 
TIMES  HIE  EFFICIENCY.  Fn  IS  THE  FRACTION  OF  THE  TOTAL  NUMBER 
OF  PARTICLES  THAT  ARE  mITHIN  THE  SIZE  RANGE  OLUM  TO  OHIGH 
SPN  .  NORMALIZED  SCATTERING  PaTTERN  FOR  TrtE  PARTICLES  MITH 

DIAMETERS  RETHEEN  flLON  A»<D  PHICH.  EVALUATED  AT  21  POINTS. 
NHERE  The  COSINE  OF  THE  SCATTERI-G  ANGLE  VARIES  FROM  -1  TO 
♦1  Br  o.l  INCREMENTS.  EuUATION  IS  ONE  OVER  THE  SCATTERING 
CROSS  SECTION  TIMES  THE  INTEGRAL  OVE»  PARTICLE  DIAMETER  FROM 
DLO"  TO  DHIGH  OF  NORHfLjZEO  SCATTERING  PATTERN  AT  PARTICLE 
DIAMETER  TIMES  PRORABILlTV  DISTRIBUTION  TIMES  AREA (  Pi  a 
0IAk£TER»a2  /  4  j  TIMES  HIE  SCATTERING  EFFICIENCY 
THE  PROBABILITY  DISTRIBUTIONS  A«£ 

LOG  NORMAL  *  EXPf  -O.S»{LN(D/oH>/LN<S) j»»2  l/<  SQRT(2»PI )*D»LN(S) > 
WHERE  D  =  PARTIClE  DIAHETER  (  L  J 

OH  a  DIM,  MEAN  particle  DIAMETER  PARAMETER  t  L) 
S  *  D2S.  st*NDARO  DEVIATION  PARAMETER 
POWER  LA"  »  ?P-l/*D»»(-Pl/(OMtNa»tl-P}-OMAXa*(l-P)l 

•WHERE  DHJM  a  0 1 M#  MINIMUM  PARTICLE  DIAMETER  OF 
,  DISTRIBUTION 

DHAX  a  D2S.  MAXIMUM  PARTICLE  DIAMETER  OF 
DISTRIBUTION 

IF  FOR  THE  LOG  NORMAL  OISTRlBuTION  OLO"  a  0  AND  DKIGH  Is 

essentially  infinite!  lncdhich/dim)  ,gt,  20*ln(D2s>  j  the  whole 
range  OF  the  DISTRIBUTION  IS  COVERED  AND  THE  OUTPUTS  ARE  FOR  ALL 
the  PARTICLES  IN  the  DISTRIBUTION,  SIMILARLY  IF  DlO"  a  DIM  AND 
OHIGH  a  D2S,  THEN  Th£  "HOLE  Pf)MER  LAW  DISTRIBUTION  IS  INCLUDED 

DIMENSION  SP*C2l),  SP(2l ),  SP| (21 ),  SPL (21 ),  SPU(2I),  SPI(21) 

SET  VALUES  OF  PI.  4»PI.  SORT(?*PIJ,  AND  S0RT(2) 

DATA  PI  /  3. <5159265  /.  FOURPl  /  12.5663706  /.  S02PI  /  2.50662827/ 

1  .  532  /  1.41421356  / 

INITIALIZATION  *  ZERO  OUT  VANITIES 
SIRS  a  0. 

SIRE  a  0. 

SIRP  a  0. 

D3IGEL  *  0 
nu  2  IP  a  1,  21 
SPN(  IP  1  a  o. 

2  CONTINUE 

SET  NUMBER  OF  STEPS  INDICATOP 
NSTEP  s  0 

SET  HIE  DIMENSIONLESS  SIZE  PARAMETER  INDICATOR 
LIMITA  *  0 

CH£C*  WHICH  DISTRIBUTION  IS  T(|  BE  USED  -  LOR  NORMAL  OR  POWER  LAM 
IF!  1A3S(  "SIZE  J  .ED.  2  )  GO  TO  6 

DISTRIBUTION  IS  LOG  NORMAL 

set  mean  value  and  stanoaro  Deviation  parameters 

OH  a  DIM 


116 

117 

119 
111 

120 
121 
122 
123 
120 

125 

126 
127 
129 

129 

130 

131 
13? 
133 
13# 

135 

136 

137 

138 
13# 
iao 
l  a  l 
i#2 
!«3 
laa 
1#5 
1  #6 
!«7 
I  #8 

149 

150 

151 

152 

153 
15# 
155 
ISO 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 


S  =  02S 

*LnS  s  *LOO(  S  3 
C 

C  CALCULATE  DIAMETER  AT  PEAK  0?  PROBABIL1TT  DISTRIBUTION 

DPEAK  i  OH  .  £XPf  -ALNS**2  3 
C 

c 

C  CALCULATE  FN,  THE  FRACTION  0?  THE  TOTAL  NUMBER  OF  PARTICLES  THAT 
C  are  IN  THE  GIVEN  SIZE  RANGE  (  NUMBER  OF  PARTICLES  KITH  DIAMETERS 

c  between  dlo«  and  dhigh  divided  by  total  number  of  particles  in  the 

c  DISTRIBUTION  1 

Fn!  *  .0. 

El  S  -(. 

IF C  OLON  .LE.  0.  )  GO  TO  3 
El  a  ALOGt  OLD*  /  DM  J  /  ALNS 
FNJ  e  CUMHORI  El  ) 

3  E2  =  ALOe<  OHIGH  /  DM  j  /  ALh's 
FN2  «  CUHNOKf  E2  3 

IF(  El  *  E2  .LF.  0,  3  GO  TO  a 
FH  =  FN1  -  FN2 
IF T  E2  .LT.  0,  1  FN  ■  “FN 
GO  TO  5 

4  FN  a  1.  -  FN1  -  FN2 
C 

C 

C  SET  CONSTANT  FACTOR  IN  LOG  NORMAL  PROBABILITY  EOUATION 

5  CONLN  i  1.  /  {  S02P1  »  ALNS  *  FN  3 

C  INTEGRATION  STRATEGY 

C  IF  OPEAK  13  MUHIN  INTEGRATION  RANGE  DLOK  -  DHIGH,  START  AT  DPEAK 

C  AND  INTEGRATE  FORWARD  TO  DHJGh,  THEN  RETURN  TG  OPEAK  AND 

c  integrate  backwards  to  old*.  othesnise  if  dpeak  is  less  than  blow 

c  start  at  olow  and  integrate  forwards  to  dhigh.  if  dpeak  is  greater 

C  THAN  OHIGH,  3TART  AT  DHIGH  A«D  INTEGRATE  BACKWARDS  10  DLON 

OSTAB7  i  -1, 

IF!  C?£AK  .GC.  OHIGH  3  GO  To  jOO 
OSTAR7  *  CPEAtC 

If  l  OPEAK  .Lt.  OLOW  j  DSTART  *  OLOU 
GO  TO  7 
C 
C 

C  D1STRIBU7ION  IS  POWER  LAW 

C  SET  MINIMUM  AND  MAXIMUM  DjImEtERS 

6  OMIN  n  DIM 
D“AX  s  D2S 

£ 

C  CALCULATE  Fn  FOR  POWER  LAW  DISTRIBUTION 

CHP  x  1.  -  P 

F-i  x  (  DLO"»*OMP  -  DHlGH«*Ow?  3  /  (  DMIN*«OMP  -  OMAX«*OHP  3 
C 

C  SET  CONSTANT  FACTOR  IN  POWER  L*h  PROBABILITY  C9UATION 
CONPt  «  -OHp  /  (  (  DHSN**OMP  -  DMAX»*OM?  3  *  FN  3 
C 

C  INTEGRATION  STRATEGY 

C  START  AT  OLOW,  INTEGRATE  FORW'a°D  TO  OHIGH 
DSTART  3  GLOW 

C 

C  THIS  IS  THE  FORWARD  INTEGRATInw  SECTION 
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17* 

ITS 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 
189 
1*9 
<91 

192 

193 
19* 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 
213 
21* 

215 

216 

217 

218 

219 

220 
221 
222 
223 
22* 

225 

226 

227 

228 

229 

230 

231 


C 

c  set  the  initial  integration  step  size  and  starting  diameter 

7  D  ■  OSTART 

DELTA  *  0.2  •  OSTART 

c 

C  This  IS  THE  FORMARO  INTEGRATION  loop 

C  INCREMENT  number  OF  INTEGRATION  steps 

10  NSTEP  *  NSTEP  ♦  1 

c 

C  CALCULATE  THE  DIMENSIONLESS  MjE  PARAMETER  for  THE  CURRENT  DIAMETER 
A  s  AMJNt (  PI  *  0  /  ML#  100.  ) 

c 

C  IK  THIS  VERSION  ME  LIMIT  THE  mIE  SIZE  PARAMETER  TO  BE  EQUAL  To  100 
C  OR  LESS.  THIS  LIMIT  IS  IMPOSED  70  CONSERVE  COMPUTER  RUNNING  TIME, 

C  THERE  MILL  RE  NO  LOSS  OF  ACCURACY  ON  CROSS  SECTION  CALCULATIONS. 

c  there  rat  re  some  accuracy  loss  in  the  scattering  pattern  for  a 

C  DISTRIBUTION  of  EXTREMELY  large  size  particles 

c 

C  CALCULATE  hie  parameters 

C  IF  hie  SIZE  LIMIT  NAS  REACMEO  LAST  TIME#  USE  PREVIOUSLY  COMPUIED 
C  VALUES 

IF C  LIHITA  ,EQ.  1  )  CO  TO  II 

CALL  MIEf  MSIZE,  HSPHER#  A,  XR,  XI,  OSCA,  QExT,  08,  3PU  ) 

C 

C  CHECK  IF  HIE  SIZE  PARAMETER  LtMIT  HAS  SEEN  REACHED 
IF C  A  .EO.  100.  )  LlMITA  *  1 

c 

C  EVALUATE  INTEGRANDS  AND  N0RMAl1ZeD  SCATTERING  PATTERN!  FOR 

C  POSITIVE  MSIZE  )  AT  CURRENT  0  VALUE 

11  area  »  pi  *  n»*2  /  «. 

IF C  IARS(  MSIZE  )  ,E9.  2  )  GO  TO  12 

PROS  *  CONLN  •  EXP!  .0.5  •  !  ALOG!  0  /  DM  )  /  ALMS  )**2  )  /  D 
GO  TO  13 

12  PROB  «  CONPL  /  0*«P 

13  CNST  s  PROP  •  AREA 

XINT3  «  CNST  «  OSCA 

XJNTC  »  CNST  •  QEXT 

XJNTfl  *  CNST  •  OB 

IF C  MSIZE  .LE.  0  )  CO  TO  15 

CONS  S  4.  /  f  A. *2  *  OSCA  ) 

DO  14  IP  s  1.  21 

spf  Ip  j  *  cons  *  spu  (  n  j 

l«  CONTINUE 

c 

C  CHECK  IF  THIS  IS  THE  FIRST  EVALUATION  POINT 

15  IF  1  NJTEP  .GT.  1  )  GO  TO  17 
C 

C  SAVE  INTEGRAND  VALUES  FROM  OSTART  FOR  BACKWARDS  INTEGRATION 

XINTS1  *  XINT3 
XIMTEI  *  XINTE 
XINTRl  *  XINTR 
IF t  MSIZE  .LE.  0  )  CO  To  55 
DO  16  TP  »  1.  2! 

SP1C  !P  )  «  3P<  IP  ) 

16  CONTINUE 
GO  TO  55 

r. 

C  USE  POKER  LAM  INTEGRATION  BETnEEN  THIS  POINT  AND  PREVIOUS  POINT 


105 


232 

233 
23a 

235 

236 

237 
23* 
236 
200 
201 
202 
203 
2aa 
2«5 
20  fc 
2«7 
2os 
2ao 

250 

251 

252 

253 
25a 

255 

256 

257 
25* 
256 
260 
261 
262 
263 

26a 

265 

266 

267 

268 
266 

270 

271 

272 

273 
27a 

275 

276 

277 
273 
275 
280 
281 
2*2 
233 
?*a 
2*5 
286 
267 
28* 
286 


C 


C 


C 


C 

C 

c 

c 

c 

l 


COMPOTE  Exponent  op  POWER  L*w 
17  *1001  i  *LUGf  0  /  OL  J 

EXS  s  *LOG(  XINTS  /  XINTSL  !  /  ALGOL 
EXE  =  *LOS(  xfNTE  /  XJNTEL  )  /  ALDOL 
EXS  =  ALCGf  XINTS  /  XINTRL  )  /  ALODL 


IF C  *est  £*S  ♦  1.  )  .LE.  i.E-J  )  GO  TO  18 
nsIGS  £•  XINTSL  *  OL*  (  (  D  /  oL  )*•<  EXS  ♦  I. 

13 


Gil  Tn  20 

IS  05lG$  -  X  1  N J f, i_ 
29  IFf  xfl't  EXE  ♦ 
OSiGE  =  XlfiTfL 
l) 

Gu  Tfl  30 

25  OSiGF  =  X 1  nt F!_ 
3C  IF (  »SS{  £XB  * 
DSIGR  =  XINTBt 
1) 

GO  TO  10 

35  0SI58  *  XINTRE 


*  OL  »  *EC-Oi_ 

1.  )  .LE.  l.E-3  )  GO  TO  25 

♦  OL*  (  (  0  /  nL  )«*(  EXE  ♦  I. 


•  OL  *  ALODL 

1.  5  .LE.  l.E-S  3  GO  TC*  35 

*  OL*  (  (  D  /  oL  )*•(  £XB  ♦  S. 


*  OL  *  ALGOL 


J  -1.  1  /  {  EXS  ♦  1. 


)-!.)/(  EXE  ♦  1. 


)-!.)/(  EXB  *  l. 


AGO  CONTRIBUTION  FROM  this  INCREMENT  TO  TOTAL 
SO  5  iGS  s  5IGS  *  0SIG3 
3IGE  =  SiGE  ♦  OSIGE 

SI5S  =  SIGB  «  P3IG8 

1F(  MSJZE  .LE.  0.  j  GO  TO  «S 
C0«2  a  0SI5S  /  SICS 
CONI  x  1.  -  C0H2 

00  as  IP  =  1,  21 

CXSP  a  4L0GC  XINTS  *  SP(  I?  1  /  C  XINTSL  •  SPLf  IP  )  )  )  /  ALOOL 
Iff  Agst  EXSP  *  1.  )  ,l£.  1 ,C-3  )  GO  TO  ai 

SPJt  |p  )  A  XINTSL  *  SPLC  IP  I  »  DL  *  f  (  D  /  OL  )  •«  C  EXSP  ♦  1. 

1  )  -  1.  j  /  (  (  EXSa  ♦  1.  I  •  OSIGS  J 

GO  TO  S2 

as  SPff  IP  )  s  XJMTSL  •  SPLC  IP  )  *  DL  »  AlDoL  /  OSIGS 

£2  SPM  ;»  )  r  C0M!  *  SP.Nt  IP  )  «■  COM2  •  SPI(  IP  ) 

S3  CONTINUE 


CN£C*  IF  THE  INTEGRAL  PARTIAL  SUMS  HAVE  ALISOV  CONVERGED  TO  FINAL 
Vitt'ES  (  IE,  !F  ALL  SENSIBLE  CONTRIBUTIONS  >0  INTEGRALS  HAVE 

ALStAOT  BEEN  INCLUDED  5  CRITERION  13  IH*7  THE  LAST  CONTRIBUTION  TC 

the  extinction  c°oss  section  5r  less  than  io.*-a  of  the  total 

Ct-."?UI£D  THUS  far 

55  IFf  PSTGE  /  SIGE  .Lt.  l.E-e  l  GO  TO  100 


convergence  has  not  teT  Been  reached,  no  next  ::;cpt!»ENT 
SAVE  INTEGRAND  VALUES  and  OIAnEI  'S  FPCh  *,mi3  STEP 
55  XJMTSL  1  xjf.-Ts 
*1nT£l  =  xInte 
X JNTEC  *  XINTB 
OL  =  D 

IFf  -alZE  .LE.  0  )  GO  TO  61 
On  60  I?  i  1,  2! 

SPLf  IP  I  =  SPf  IP  ) 

60  CONTINUE 

61  IFf  NST£P  .LE.  i  )  GO  TO  65 


106 


COMPUTE  STEP  SIZE  FOR  NEXT  INCREMENT 

DEIT*  *  D  »  AM  Ax t (  0.2;  EXP(  i.  /  AHAXI (  ANSI  EXE  ),  l.  )  )  •  1.  } 
RATIO  *  OSIGEL  /  OSIGE 

IF  I  RATIO  .GT.  t.  )  OELTA  a  DELTA  A  RATIO 

SAVE  OSIGE  VALUE 
OSIGFL  *  OSIGE 

CHECK  IF  FORWARD  INTEGRATION  LIMIT  HAS  BEEN  REACHED 
IF  (  0  .f-E,  DHIGH  )  GO  TO  10O 

LIMIT  has  NOT  VET  BEEN  REACHED.  INCREHENT  d  for  next  step 
65  D  a  0  ♦  DELTA 

!F<  D  .GT.  OHIOH  )  D  *  DHIGH 
DO  NEXT  S IEP 
GO  10  10 

THIS  IS.  THE  BACKWARDS  INTEGRATION  SECTION  FOR  THE  LOG  NORMAL 
DISTRIBUTION  . 

CHECK  IF  THE  FORWARD  INTEGRATION  INCLUDED  WHOLE  INTEGRATION  RANGE 
100  IF  T  03TART  .EG,  OLOW  )  GO  TO  ROD 

RESET  INTEGRATION  STEP  COUNTER  AND  OSIGEL  VALUE 
NSTEP  *  0 
OSIGEL  *  0, 

IF  FORWARD  INTEGRATION  BEGAN  AT  PROBABILITY  PEAK,  USE  SAVED  VALUES 
FOR  STARTING  POINT,  OTHERWISE  CALCULATE  STARTING  VALUES 
IF C  DSTART  ,E0,  DPEAK  j  GO  TO  105 
DSTART  *  DHIGH 
0  *  DSTART 

DELTA  r  -0.2  *  DSTART 
GO  TO  115 

105  XINTSL  *  XtNTSl 
XINTFL  »  X1NTE1 
XINTBL  *  XINTH1 
D  *  DSTART 
OL  *  OSTART 
DELTA  a  -0.2  .  DSTART 
NSTEP  a  1 

TFT  H$IZ£  .LE,  0  )  GO  TO  165 
DO  110  IP  *  I,  21 
SPL<  IP  1  *  SPIT  IP  ) 

110  CONTINUE 
GO  Tn  tb5 


this  is  the  backwards  integration  loop 

1 15  NSTEP  a  NSTEP  ♦  1 


CALCULATE  the  DIHEN3I0NLESS  M jE  PARAMETER  FOR  THE  CURRENT  DIAMETER 
A  a  AH  IN  1  (  PI  *  0  /  H‘_.  100.  J 


C 

C 


CALCULATE  «if  PARAMETERS 


,S|fl  WWpj' Win*  TJ'W'l* 


IF  mie  SIZE  LIMIT  Has  REACHED  LAST  TIME#  USE  PREVIOUSLY  COMPUTED 
VALUES 

IF (  LIMITA  ,E0.  1  .and.  A  ,GE.  tno,  )  GO  TO  117 

CALL  HIE (  MSIZE,  MSPHER,  A,  Xr,  XI,  QSCA,  OEXT#  GB#  SPU  ) 

CHECK  IF  MIE  SIZE  PARAMETER  LIMIT  HAS  BEEN  REACHED 
I F  <  A  ,EO.  100.  )  LIMITA  a  1 

EVALUATE  INTEGRANDS  AND  NORMALIZED  SCATTERING  PATTERN!  FOR 
POSITIVE  MSIZE  )  AT  CURRENT  D  VALUE 

117  AREA  3  PI  *  0»*2  /  <1. 

PROS  a  CONLN  a  £XP(  -0.5  *  (  ALOG!  D  /  DM  )  /  ALNS  )«*2  )  /  0 

CNS7  a  PROB  «  AREA 

XINTS  3  CNST  *  OSCA 

X I  NTS  a  CNST  *  OEXT 

X  I N T B  a  CNST  .  08 

IF!  MSIZE  ,LE.  0  )  GO  TO  119 

CONS  a  a.  /  !  A  *  *2  *  QSCA  1 

DO  1 1 8  IP  *  1,  21 

SP!  IP  ;  O  CONS  *  SPU  I  IP  ) 

118  CONTINUE 

CHECK  IF  THIS  is  THE  FIRST  EVALUATION  POINT 

119  IF!  NSTF.P  .LF.  1  )  GO  TO  155 

USE  PQWER  LAW  INTEGRATION  BETWEEN  THIS  POINT  AND  PREVIOU3  POINT 
COMPUTE  EXPONENT  OF  POWER  LAW 
A1.0DL  »  ‘LOG!  DL  /  D  ) 

Exs  3  ALOG!  XIN1SL  /  XINTS  )  (  ALGOL 

EXE  3  ALOG!  XINTEL  /  XINTE  )  /  ALGOL 

EXB  a  ALOG!  XINTRL  /  X I NTR  )  /  ALDDL 

IF!  ABS!  EXS  1  J.  )  ,LE.  l.E-J  )  GO  TO  120 

DSIGS  2  XINTS  *  0  ♦  !  !  DL  /  D  >*«!  EXS  *  1.  )  •  1,  )  /  (  EXS  +  l. 

1  ) 

GO  TO  125 

120  DSIGS  »  XINTS  *  0  *  ALGOL 

125  IF!  ABS!  EXE  ♦  1.  )  .LF.  1 .E-J  )  GO  TO  130 

OSIGE  s  XINTE  »  D  .  !  !  OL  /  o  )*»!  EXE  ♦  l .  5  ♦  1 .  )  /  (  EXE  ♦  1, 

1 ) 

GO  TO  135 

130  OSIGE  s  XINTE  «  D  *  ALGOL 

135  IF!  ACS  I  EXB  ♦  1.  )  ,LE,  l.E-3  )  GO  TO  190 

DSIGS  3  X I  NT  8  <  O  •  (  !  1)1  /  o  )*»!  EX8  FI.  >”!.)/(  EXB  ♦  1. 

I  ) 

GO  TO  1 95 

5j0  r>sIGR  3  XINfB  >  n  >  ALDDL 

*00  CONTRIBUTION  FROM  THIS  INCREMENT  TO  TOTAL 
195  SIRS  a  SIGS  *  DSIGS 
SIGE  a  S1GF  t  OSIGE 
SIGH  a  SIGH  ♦  OSIGB 
IF!  MSIZE  .LE.  0.  )  GO  TO  150 
COM2  a  USIG3  /  SIGS 
CONI  a  1 .  -  COM2 
DO  19 A  IP  a  l,pl 

FXSP  a  A LUG!  XlNTSL  *  SPL !  IP  )  /  I  XINTS  *  SP(  IP  )  )  )  /  ALDD1 


m  ritfifiwctft*  w  Wfl 


ir<  ABS(  €*S°  ♦  1,  )  ,LE.  t.E.S  )  GO  TO  146 

SPI<  IP  }  *  XINTS  «  3Pt  IP  J  »  D  *  (  C  01  /  0  )  *»  (  EX9P  ♦  I.  ) 

I  -!-.)/((  EXSP  ♦  1.  )  *  03IGS  ) 

go  rn  i#7 

146  SPt(  IP  )  *  XINTS  «  SP(  IP  )  *  0  *  ALGOL  /  OSIGS 

147  SPN(  IP  )  *  CONI  *  3PN(  IP  )  ♦  CON2  *  SPIt  IP  ) 

148  CONTINUE 

CHECK  IF  CONVERGENCE  HAS  BEEN  REACHED.  CRlTtRlON  IS  THAT  THE  LAST 
CONTRIBUTION  TO  THE  EXTINCTION  CROSS  SECTION  IS  LESS  THAN  10«»-« 

OF  THE  TOTAL 

150  IF<  OSICE  /  SI5E  ,LT.  l.E-4  )  50  TO  200 

CONVERGENCE  HAS  NOT  VET  BEEN  nEACHEO,  DO  NEXT  INCREHENT 
SAVE  INTEGRAND  VALUES  AND  DIAhETER  FROM  THIS  STEP 
155  XINTSL  «  XINTS 
XINTEL  *  XINTE 
XINTRL  *  XINTB 
Dl  *  0 

IF (  H3IZE  .IS*  0  )  GO  TO  161 
DO  160  IP  «  1,  21 
SPL(  IP  )  *  SPC  IP  I 

160  CONTINUE 

161  IF (  NSTEP  .LE.  1  I  GO  TO  165 
COHPI1TE  STEP  SIZE  FOR  NEXT  INCREMENT 

DELTA  «  -D  •  AMAXIT  0,2,  1.  -  EXP(  -I,  /  AHAX1 (  ABSt  EXE  J,  1,  )  ) 
I) 

RATIO  «  OSIGEL  /  DGIGE 

IFf  RATIO  .GT.  1.  )  DELTA  ■  AHAXK  -0.6  •  D,  DELTA  *  RATIO  ) 

SAVE  DSIGE  VALUE 
OSIGEL  *  DSIGE 

CHECK  IF  BACKWARD  INTEGRATION  LIMIT  HAS  BEEN  REACHED 
IF (  0  .LE.  OLON  )  CO  TO  200 

LIMIT  HAS  NOT  VET  BEEN  REACHED,  INCREMENT  D  FOR  NEXT  STEP 
165  D  *  0  ♦  DELTA 

IF f  D  ,LT,  OLON  )  0  «  DLON 
DO  NEXT  STEP 
GO  TO  115 


INTEGRATION  COMPLETE,  SET  VALilE  OF  SIGA 
200  SIGA  M  SIGE  -3IGS 

RETURN 

ENO 
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1  SUBROUTINE  Mt£ (  HSIZs.  HSPHER,  X,  OR.  01.  OSCA,  QEXT,  089.  8  ) 

a  c 

J  C  THIS  ROUTINE  USES  hie  theory  TO  CALCULATE  the  EFFICIENCIES  FOR 

«  C  SCATTERING  and  ABSORPTION  AND  the  SCATTERING  PATTERN  FOR  A  SINGLE 

5  C  UNIFORM  SPHERICAL  PARTICLE 

6  C 

T  C  1  HE  he THOU  FOR  MODIFYING  THE  wIE  CALCULATION  FOR  NONSPHERICAL 

8  C  PARTICLES  IS  THAT  OF  CHYLEK,  grams,  AND  pinnick 

9  C  light  SCATTERING  BY  IRREGULAR  RANDOMLY  ORIENTED  PARTICLES 


10 

C 

SCIENCE,  VOL  193,  6  AUGUST  1976,  PP  980-H82 

11 

J 

THE 

METHOD  IS  eASED  ON  THE  ASSUMPTION  THAT  SURFACE  HAVES  ARE 

12 

C 

P  R£ 

SENT 

IN  SCATTERING  BY  SPHERICAL  PARTICLES,  BUT  THEY  ARE  ABSENT 

13 

1  il 

15 

c 

IN 

SCATTERING  BY  IRREGULAR  PARTICLES 

c 

c 

INPUTS 

16 

c 

MSIZE 

*  POSITIVE  INTEGER,  COMPUTE  BOTH  CROSS  SECTIONS  AND 

17 

c 

SCATTERING  PATTERN 

1 6 

c 

*  NEGATIVE  INTEGER,  COMPUTE  CROSS  SECTIONS  ONLY 

19 

c 

M3PH£  R 

*  1  THE  PART ICLE3  ARE  SPHERICAL,  USE  STANDARD  HIE  THEORY 

20 

c 

t  2  THE  PARTICLES  ARE  NONSPHERICAL,  USE  MODIFIED  HIE 

2! 

c 

THEORY 

22 

c 

X 

a  NORMALIZED  SIZE  PARAMETER,  WHICH  EQUALS  TWO  PI  TIMES 

23 

c 

THE  RADIUS  Or  THE  SPhERE  DIVIDED  BY  THE  WAVELENGTH  OF  THE 

2  a 

r 

INCIDENT  RADIATION 

25 

c 

OR 

*  REAL  PART  OF  THE  COMPLEX  INDEX  OF  REFRACTION  OF  THE 

26 

c 

SPHERE 

27 

c 

o: 

a  IMAGINARY  PART  OF  THf  COMPLEX  INDEX  OF  REFRACTION  OF  THE 

28 

r 

SPHERE  (  NOTE  THAT  ThE  COMPLEX  INDEX  OF  REFRACTION  IS 

29 

c 

ASSUMED  10  BE  H  =  DR  -  1*01  SO  THAT  BOTH  DR  AND  DI  ARE 

30 

c 

POSITIVE  ) 

31 

c 

32 

c 

OUTPUTS 

33  •  C  OSCA 

30  C 

55  C 

36  C  0£XT 

37  C 

38  C 

39  C  OHS 

“<]  C 

01  C 

o?  C  S 

OJ  C 

00  C 

05  C 

06  C 

07  C 

OS  C 

09  DIMENSION  S { 2 1 ) ,  XMUI21 ) ,  SI<?1),  S2C2I),  PP1 (21 ) ,  PP2(2t). 

50  1  PTH21),  PT2 (2 1 ) .  PT(2t),  PP ( 2 1 ) 

51  DI“'NSIGN  ANR(JOO) 

52  COMPLEX  0. Z. EHi .EH2.EN, ANF.ANr, ANZ. AN.BN.CB3C 

53  COMPLEX  31,  Si 

50  C 

55  C  SET  THE  VALUES  OF  THE  COSINE  nP  THE  SCATTERING  ANGLE  AT  WHICH  THE 

56  C  SCATTERING  PATTERN  13  TO  BE  EVALUATED 

57  DATA  X“U  /  -I.,  -.8,  -.7,  -.6.  -.5,  -.0,  -,3,  -.2,  -.1,  0,, 

58  1  .1,  ,2,  .3,  ,0.  .5,  .6,  .7,  .8,  .9,  I.  / 


r  SCATTERING  EFFICIENCY.  WHICH  EQUALS  THE  SCATTERING  CROSS 
SECTION  OF  THE  SPHERE  OIVIDED  BY  THE  CR03S  SECTIONAL  AREA 
OF  THE  SPHERE  (  SlGH*/<Pi«.RADtU8»*2) 
s  EXTINCTION  EFFICIENCY,  WHICH  EQUALS  THE  TOTAL 

(  SCATTERING  ♦  ABSORPTION  )  CROSS  SECTION  OF  THE  SPHERE 
DIVIDED  by  the  CROSS  SECTIONAL  area  OF  THE  SPHERE 
r  BACKSCATTFR  EFFICIENCY,  WHICH  EQUALS  THE  SCATTERING  CROSS 
SECTION!  IN  THE  BACKWARDS  DIRECTION)  DIVIDED  BY  THE  CROSS 
SECTIONAL  AREA  OF  TH(r  SPHERE (  SIGHA/(PI*RAD1US«»2) 

=  SCATTERING  PATTERN  OF  THE  RADIATION  SCATTERED  BY  THE 
SPHERE,  ASSUMING  INCIDENT  UNPOLARIZED  RADIATION,  S(J)  a 
SCATTERING  FUNCTION  pO«  THE  SCATTERING  ANGLE  WHOSE  COSINE 
IS  O.I*CJ-lt),  S  IS  UN-NORMALIZED,  THAT  IS,  THE  INTEGRAL 
OF  3  OVER  9  PI  SIERAdIANS  EQUALS  PI*QSCA*x*»2 


110 
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SET  VALUES  of  COMPLEX  INDEX  OF  REFRACTION  ANO  HIE  VARIABLE 
0  a  CHPLXt  DR,  >01  ) 

I  a  X  *  0 

SET  INITIAL  VALUES  OF  RICC*T I-HESSEL  FUNCTION 
EMj  a  CHPl*(  SI N I  X  ),  COS!  X  )  ) 

EH2  a  CNPLX (  COS(  X  ),  -SIN<  X  )  ) 

ZERO  OUT  tFFICfEHCV  VARIABLES  AND  SCATTERING  PATTERN  VARIABLES 
!F(  MSIZE  ,LE .  0  I  GO  TO  20 
00  10  I  a  I,  21 
SIT  I  }  a  (  0.,  0.  ) 

S2(  I  )  t  (  0,,  0.  } 

PP1 (!)  a  0, 

Pll(I)  a  0. 

°P?(1)  =  0. 

P!?(t )  =  0. 

10  CONTINUE 
20  R3CA  t  0, 

Rr.XT  t  0, 

i'lSC  a  (  0.,  0,  ) 

StT  IIP  ARRAY  (iF  ANF  VALUES  *•  (iSE  LENTZ  &ACKMAR0S  RECURSION 

technique  <  see  complex  function  anf  > 

IX  a  1,5  »  x 

•lx  S  M  A  X  0  (  2,  MIN0(  MX,  200  )  } 

ANU( NX)  a  AnF{  NX,  Z  ) 

•IX*U  a  NX  -  1 
On  TO  I  a  1,  NXM1 
N  a  NX  *  I  -  I 
CM  a  FLOAT (  N  ) 

ANP(N-l)  a  CN  /  Z  -  (t.,0.)  /  (  CM  /  Z  *  ANH(N)  ) 

SO  CONTINUE 


CALCULATE  the  EFFICIENCIES  AN|)  SCATTERING  PATTERN  USING  THE  HIE 

INFINITE  SERIES  EXPANSION  FORMULAS 

X2  a  X  *»  2 

ONE  a  -1. 

on  100  'I  a  1,  ? JO 

FS  a  N 

ONE  3  -ONE 

Cl  a  ?.  •  FN  -  1. 

F>;  a  Cl  *  Eh  *  /  X  -  Em2 

IF  I  N  .IE,  NX  )  ANZ  a  ANR(N) 

IF  t  N  .GT.  NX  )  ANZ  a  ANF (  N,  7  ) 

CFNOX  I  F»  /  I 
Cl  a  REAL (  EN  ) 

C2  a  REAL (  E"l  ) 


no 

AN  S  ( 

( 

A*Z 

/  0 

♦ 

CFNflX 

) 

* 

Cl  -  C2  )  / 

nt 

i 

< 

{ 

ANZ 

/  0 

♦ 

CFNOX 

) 

* 

fN  -  EMI  ) 

112 

RN  a  ( 

( 

0  * 

ANZ 

♦ 

CFNOX 

) 

• 

Cl  -  C2  )  / 

ns 

1 

( 

C 

0  * 

AN  Z 

♦ 

CFNOX 

) 

* 

FN  -  EMI  ) 

CHECK  If  PARTICLES  ARE  SPHERICAL  OR  NONSPHERICAL 


116 

Iff  HSPHER  .LE.  1  )  GO  0  55 

117 

C 

its 

c 

THE  PARTICLES  ARE  NONSPHERlCAi ,  MODIFY  THE  VALUES 

OF  AN  AND 

119 

C 

THEY  ARE  NEAR  A  RESONANCE  PEAk  (  DUE  TO  SURFACE 

HAVES  ) 

120 

c 

have  MODIFICATION  only  FOR  HIg  ORDERS  OF  THREE 

AND  ABOVE 

121 

IF  f  N  .LT,  J  j  GO  TO  35 

122 

u 

123 

c 

CHECK  if  DIMENSIONLESS  SIZE  PARAMETER  IS  BEYOND 

THE  REsONANC 

!2a 

c 

REGION 

1 25 

IFt  X  .ST.  i.j  *  FN  )  GO  TO  35 

126 

c 

127 

c 

w£  APE  NOT  SEYONC  THE  RESONANCE.  LIMIT  AN  AND  BN 

120 

IF  C  REAL (  an  )  .GT.  0.5  )  AN  =  (  0.5,  0.  ) 

129 

IFf  R£AL 1  9H  )  .GT.  0.5  1  BN  =  (  0.5,  0.  ) 

130 

c 

131 

35 

XFACT  a  2.  »  FN  ♦  1. 

132 

X*7. C«  a  ONE  »  i  FN  ■*  0.5  ) 

133 

DSrA  x  9SCA  t  XFACT  *  C  CABS!  AN  !  **2  ♦  CABS( 

BN 

)  **2  ) 

13a 

9EX1  a  J£XT  .  XFACT  *  REAL!  sN  4  BN  ) 

'35 

OBSC  r  0B3C  ♦  XFACB  *  (  AN  -  RN  j 

136 

EmJ  p  EH  1 

n-r 

EH!  s  E N 

13« 

TF1  “SICE  .LE.  0  )  GO  TO  80 

139 

DO  70  I  =  I.  21 

ISO 

IF  <  N  .GT.  2  )  GO  TO  50 

1  A*  1 

IF  ( , N  ,E0,  2  1  GO  TO  ao 

1«2 

P‘-I1)  s  ). 

1«3 

Pffl)  a  XMlJd) 

lfl'1 

G  1  Tr;  60 

105 

«0 

’"tl)  »  t.  *  X.-U(I) 

106 

pi;n  =  6,  *  xHUi’i  **2  -  3. 

107 

GO  re  pO 

108 

50 

PPUi  <  I  1  J,  .  Fi  .  1,  )  i  XMUtI)  •  PPl(I)  - 

FN 

*  PP2(Ii  ) 

109 

{  FN  -  1,  ) 

ISO 

?T(P  a  XMUi’l  *  (  PPU3  -  PP2U)  5  -  C  2.  *  FN 

. 

1.  )  » 

151 

i  {  l,  -  xHu<n  »*2  j  •  °?i in  +  Ptatn 

152 

60 

CXFACT  =  {  2.  *  FN  »  1.  )  /  (  FN  «*2  ♦  FN  ) 

153 

Cl  =  PR (I) 

150 

C2  r  PT ( I ) 

155 

Sun  =  SKI)  >  CXFACT  *  (  AN  •  Cl  ♦  8N  •  C2  ) 

1 56 

$2(1!  *  52 (I)  ♦  CXFACT  »  (  BN  ♦  Cl  t  AN  «  C2  ) 

157 

PP2.I)  a  PR! (I) 

158 

pT?t!)  =  PT1U1 

159 

PP1 (!)  i  PP(I) 

160 

PTKI)  *  »T(!) 

161 

70 

CONTTNUc 

162 

AO 

'Fi  FN  ,LT.  1.2  *  X  .OR.  N  .EO,  1  )  GO  TO  90 

163 

i 

*60  c  F'-rCX  -F  TKC  INFINITE  SERIES  HAS  CONVERGED 

165  If  C  A43C  i.  -  AMAX!  (  OEXT.  OeXTST  )  /  AMINK  OEXT,  OEXTSI  )  ) 

166  I  .l£.  l.E-3  )  GO  10  110 

1 67  C 

1 66  f  CONVERGENCE  HAS  NOi  BEEN  REACHED.  COMPUTE  NEXT  TERM  IN  SERIES 

169  90  IJEXTSt  =  GExT 

170  ico  continue 

171  C 

it?  c  series  has  converged#  set  the  cross  section  .hues 

17J  110  n.XI  =  2.  *  OEXT  /  X? 


174 

175 

176 

177 
176 

179 

180 
IS| 
162 
18S 
18* 
165 


QSCA  s  2.  *  (ISC*  /  X2 
1)66  =  4.  *  (  C*8S(  OflSC  )»»?)/  X2 
C 

C  FOR  POSITIVE  MS1ZE,  SET  THE  V*LUES  OF  THE  UNPOLARIZED  SCATTERING 
C  PATTERN 

TF(  HS1ZE  ,L£.  0  )  RETURN 
CO  120  I  «  1,  21 

St  I )  »  0.5  •  {  CA83(  SHI)  >  .«2  ♦  C*8S(  82(1)  >  **2  ) 

120  CONTINUE 
C 

RETURN 

ENO 


I 

I 

i 

I 

I 

6 

i 

1 

I 

I 

! 

1 

1 

1 

5 

f 
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COMPLEX  FUNCTION  *NF(  INDEX,  7  ) 

THIS  ROUTINE  IS  CALLED  BY  HIE 

THIS  IS  A  NQF  routine  -  DOCUMENTED  IN  REPORT  GE77THP-22 

THIS  FUNCTION  EVALUATES  THE  COMPLEX  QUANTITY  A(N,Z)  WHICH  IS  USEO 

IN  THE  HIE  FORMULAS#  WHERE 

A(N,Z)  *  -N/Z  4  J(N-i/2,Z)/J(N+l/2,Z) 

Z  *  MaALPHA 

H.  a  H(REAL)-I*M(IHAGlNARri  *  COMPLEX  INDEX  OF  REFRACTION 

ALPHA  a  2*PI»R/KA«ELENGTH  s  NORMALIZED  SIZE  PARAMETER 
R  a  RADIUS  OF  SPHERE 

H  a  OROER  OF  THE  FUNCTION 

J  a  BESSEL  FUNCTION  OF  COMPLEX  ARGUMENT  AND  HALF-INTEGER 

ORDER 

THE  METHOD  OF  EVALUATION  USES  THE  CONTINUED  FRACTION  ALGORITHH  OF 
WILLIAM  J  LENTZ  -  GENERATING  pESSEL  FUNCTIONS  IN  HIE  SCATTERING 
CALCULATIONS  USING  CONTINUED  FRACTIONS 
APPLIEO  OPTICS,  VOL.  IS,  NO.  3,  MARCH  1976 


INPUTS 

INDEX  a  ORDER  FF  A(N,Z),  THAT  IS,  INDEX  a  N 
Z  a  COMPLEX  ARGUMENT 

OUTPUT 

ANF  =  A(n,Z) 


complex  z,  n,  d,  t,  pn,  pd,  ti,  tz  ,  e 

DEFINE  ARITHMETIC  STATEMENT 

Cl  X  )  a  2.  *  S  *  (  FN  -  0.5  ,  XI  ) 

SET  VALUE  OF  first  PARTIAL  FRACTION  TERH  FOR  NUMERATOR  (PNj 
FN  a  INDEX 
S  a  -I, 

CP  a  2.  t  FN  4  l. 

PNiCP/Z 

SET  VALUE  OF  FIRST  PARTIAL  CONVERGENT  FOR  NUMERATOR  (N) 

NaPN 

CALCULATE  SECOND  PARTIAL  FRACTION  AND  CONVERGENT  FOR  NUMERATOR 
CP  a  -2^.  *  FN  -  J. 

TrCF/Z 

PNaT»(!.,0.)/pN 

NsN»PN 

SET  VA"=E  OF  FIRST  PARTIAL  FRACTION  IPO)  AND  CONVERGENT  (D)  FOR 

DENQM  OR 

PO*T 

DaPD 


CALCULATE  THF  HIGHER  ORDERS  OF  THE  PARTIAL  FRACTIONS  AND 
CONVERGENTS 
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5V 

”1*2. 

60 

DO  30  J  <  1  ,  100 

61 

xi*xi*i. 

62 

S  *  -8 

63 

T  «  Cl  X  )  /  2 

64 

PN*T+(1.,0.)/PN 

65 

PO*T«( 1 . ,0. l/PO 

66 

C 

67 

C 

66 

C 

IN  THE  WARE  INSTANCE  THAT  THE  NUMERATOR  PARTIAL  FRACTION 

TERM  J 

64 

c 

NEAR  ZERO,  USE  THE  LENTZ  ALCOrIThF  IMPROVEMENT  METHOD  TO 

INSURF 

70 

c 

ACCUR-CY 

71 

IF  C  C*8S<  PN  )  ,CT .  l.E-«  )  CO  TO  20 

72 

s  *  -s 

73 

XI  =  XI  ♦  1. 

74 

T!  «  C(  X  )  /  7 

75 

E  *  T!  *  PN  ♦  <1.,0.> 

76 

N  (  N  *  c 

77 

S  «  -S 

76 

XI  *  XI  ♦  1. 

74 

T2  =  C<  X  )  /  2 

So 

PN  a  T2  ♦  PN  /  E 

81 

c 

82 

c 

IF  TMF  DENOMINATOR  PARTIAL  FRACTION  TERM  IS  NEAR  ZERO,  USE  THE 

83 

c 

ALGORITHM  IMPROVEMENT  METHOD 

64 

IF  <  CABSC  PO  >  .CT.  l.E-4  1  cO  TO  10 

65 

E  *  T1  •  PD  ♦  tl.,0.j 

66 

D  *  0  «  E 

67 

RD  *  T2  ♦  PO  /  E 

8B 

CO  TO  20 

84 

c 

40 

to 

D  x  0  «  PD 

4 1 

?0*Tl«f l.,0.)/PO 

42 

0  *  0  »  PD 

43 

P0*T2FC1.,0.)/PD 

44 

c 

45 

c 

46 

20 

N  •  N  •  PN 

47 

D  *  0  *  PO 

46 

c 

44 

c 

check  if  CONVERGENCE  mas  SEEN  REACHED 

100 

if  (  ABSC  CARSC  PN  1  /  CARS!  pD  )  -  I .  )  .IE.  l.E-6  J  GO 

TO  40 

101 

30 

CONTINUE 

102 

c 

103 

c 

104 

c 

CONVERGENCE  HAS  SEEN  REACHED,  SET  VALUE  Cl  *NF 

105 

40 

ANF  a  *FN  /  7  ♦  N  /  0 

106 

c 

t07 

RETURN 

106 

END 
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1 

FUNCTION  CUKN()R<  X  ) 

2 

c 

-M 

3 

C 

CUHN09  IS  THE  CUMULATIVE  DISTRIBUTION  OF  THE  NORMAL  RANDOM 

a 

C 

PROBABILITY  DISTRIBUTION  FOR  NEGATIVE  X  AND  IS  ONE  HINUS  THE 

H 

S 

C 

CUMULATIVE  DISTRIBUTION  FQR  POSITIVE  X 

9 

6 

C 

% 

7 

c 

THF  CUMULATIVE  DISTRIBUTION  OF  THE  NORMAL  RANDOM  VARIABLE  IS 

-3j 

8 

c 

1/S0RTT2*PI)  TIMES  THE  INTEGRAL  FROM  MINUS  INFINITY  TO  X  OF 

rl 

9 

IC 

I  : 

c 

EXP<-T««2  /  2  )  OT 

3 

c 

V 

For  ABS(X)  less  than  S,  me  USF  the  POLYNOMIAL  approximation 

I 

12 

V 

FORMULA  26.2.17  IN  THE  HANOBOp.X  Or  MATHEMATICAL  FUNCTIONS  BY 

13 

c 

A8RAM0MITZ  AND  STEGUN,  MARCH  1965,  FOP  A8SCX)  GREATER  OR  EQUAL  TO 

j 

19 

c 

3,  HE  USE  The  ASYMPTOTIC  APPROXIMATION  FORMULA  26.2.29 

: 

15 

r 

■j 

16 

C 

SET  POLYNOMIAL  CONSTANTS 

17 

18 

data  BJ/  .3193S153/,  82/  -.356563782/,  83/  t .78 1977937/, 

1  89/  -1.821255978/,  85/  1.330279953/,  •>/  .2316919/ 

jf 

1® 

C 

20 

C 

SET  VALUE  OF  SORT C  2ePI  ) 

2! 

CaTa  S02PJ/  2.50662827/ 

22 

C 

■ 

25 

C 

2a 

AX  =  A8S(  X  1 

25 

Iff  AX  .GE.  5.  I  GO  TO  10 

26 

C 

27 

C 

ABS(X)  IS  LESS  THAN  S,  USE  POLYNOMIAL  APPROXIMATION 

26 

C 

2® 

T  s  1.  /  (  1.  ♦  P  A  AX  ) 

30 

APPROX  a  £XP{  -AX  *»2/2.  )»T*(8IyT*(82+T*C83*T 

31 

I  •  f  80  ♦  T  •  85  )  J  )  J  /  S02PI 

32 

GO  TO  20 

33 

.  C 

3a 

c 

** 

35 

c 

ABS(XJ  IS  GREATER  than  or  EOL'aL  TO  5,  USE  ASYMPTOTIC  APPROXIMATION 

36 

10  APPROX  =  0. 

37 

IF t  ax  .LI.  13.  >  APPROX  *  {  $QRT(  9,  ♦  AX  **2  )  -  AX  J  » 

38 

1  EXpC  -  AX  **  2  /  2..  )  /  (  2.  *  S02PI  ) 

39 

c 

90 

c 

91 

c 

SET  VALUE  OF  CUHNOR 

92 

20  CUMNOR  *  APPROX 

03 

c 

93 

RETURN 

35 

c 

06 

END 
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I 

f 

SUBROUTINE 

INJTCG 

? 

3 

C 

C 

this  ROUTINE  CM.CUl.9TfS  fHE  InHIAL  PROPERTIES  OF  THE  DUST  CLOUDS 

<i 

c 

C 

r 

FilR  EACH 

BURST 

:> 

6 

c 

INPUTS  FRO*  ClNPT  CUMMIN  AREAj 

7 

c 

N(lw) 

»  EQUIVALENT  TNT  YIELD  OF  BURST  IN  Ct8S  TNT) 

8 

c 

FM(IN) 

*  fraction  of  yield  APPEARING  AS  HYDRODYNAMIC  ENERGY 

9 

c 

FOR  BURST  I** 

to 

c 

CTU*) 

*  INITIAL  main  CLnuO  SHAPE  FACtOR  FOR  THE  DIRECTION 

11 

c 

ALONG  THE  SHELL  TRACK  FOR  BURST  IN 

t2 

c 

CPC  In) 

s  INITIAL  MAIN  CLOnD  SHAPE  FACTOR  FOR  THE  DIRECTION 

15 

c 

PERPENDICULAR  TO  THE  SHELL  TRACK  FOR  BURST  IN 

18 

c 

CV(JN) 

*  initial  main  cloud  shape  factor  for  the  vertical 

15 

c 

DIRECTION 

16 

c 

FCH(IN) 

*  FRACTION  OF  the  APPARENT  CRATER  HASS  OF  BURST  IN  THAT 

17 

c 

IS  LOFTED  INTO  The  air 

18 

c 

ACV(IN) 

*  APPARENT  CRATER  VOLUME  SCALING  FACTOR  FOR  BURST  IN 

19 

c 

(CUBIC  METERS  PEp  (LB  TNT)»aj,II1  ) 

20 

c 

PHI80CCIW) 

*  AZIMUTH  OE  SMELL  TRACK  OE  BURST  IN  (DEGrEES, 

21 

C 

MEASURED  CLOCKNIsE  FROM  THE  Y  AXIS) 

22 

C 

SHOO 

*  HULK  DENSITY  OF  THE  LOFTEO  DUST  GRAINS  CGH/CH3) 

2) 

C 

RKOC 

e  MJLK  DENSITY  OF  THE  CARBON  PARTICLES  (6H/CN3) 

29 

C 

FH2U 

s  SOIL  MOISTURE  FRACTION  (MASS  OF  MATER  IN  SOIL  DIVIDED 

25 

C 

rtY  TOTAL  "ASS  OF  SOIL  INCLUDING  MATER) 

26 

c 

XLC 

s  CARBON  YIELD  FRAcTON  (LB  OF  CARBON  PRODUCED  PER  LB 

27 

c 

OF  TNT) 

28 

c 

8«8B 

=  RATIO  OF  THE  HASS  OF  MODE  A  DUST  PARTICLES  TO  THE 

29 

c 

mass  of  mode  b  Dust  particles  in  the  lofted  cloud 

30 

c 

RBASF 

s  RATIO  OF  The  Na3»  IN  The  BASt  CLOUD  TO  THE  HASS  IU 

31 

c 

THE  MAIN  CLOUD 

32 

c 

ALPHA 

*  AIR  ENTRAINMENT  factor  FOR  RISING  CLOUD  MODEL 

33 

c 

CORAG 

*  ORAG  COEFFICIENT  FOR  RISING  CLOUD  MODEL 

39 

c 

RHO* 

■  AMBIENT  AIR  DENSITY  At  GROUND  LEVEL  (GM/CM3) 

35 

c 

VnIND 

«  MEAN  HlNO  VEtndTY  At  REFERENCE  ALTITUDE  ("ETERS/S) 

36 

c 

ALTM 

s  NINO  REFERENCE  alTJTUDE  (METERS) 

37 

c 

PVN 

»  PONER  LAN  EXPONENT  OF  VERTICAL  PROFILE  OF  MEAN  MIND 

38 

c 

VELOCITY 

39 

c 

PNlNDG 

9  AZIMUTH  OF  MEAN  *INO  VELOCITY  (MEASURED  CLOCKNISE 

90 

c 

I* 

FROM  Thf  y  AXIS)  (  DEGREES) 

8 1 

92 

L 

c 

OUTPUTS 

TO  CINITG  COMMON 

83 

c 

RICIW) 

~ 

INITIAL  RADIUS  OF  ThE  EQUIVALENT  SPHERICAL  CLOUD  FOR 

98 

c 

BURST  NUMBER  IN  (METERS) 

85 

c 

uritiN) 

T 

DUST  CLUUD  INITIAL  RADIUS  IN  THE  SHELL  TRACK  DIRECTION 

«6 

c 

(METERS) 

97 

A 

i. 

OPT(TN) 

2 

DUST  CLOUD  INITIAL  RADIUS  IN  THE  SHELL  C»OSS  TRACK 

88 

c 

DIRECTION  (METERS) 

89 

c 

RVI(IH) 

a 

OUST  CLOUD  INITIAL  RAOIUS  IN  THE  VERTICAL  DIRECTION 

50 

c 

(METERS) 

51 

c 

XKS(tM) 

a 

IOFAL  SPHERICAL  CLOuO  HORIZONTAL  DIFFUSION  CONSTANT 

52 

c 

(METERS2/S) 

53 

c 

FRCIW) 

a 

IDEAL  SPHERICAL  CLOuO  RISE  CONSTANT 

50 

c 

XKV(JN) 

* 

OUST  CLOUD  VERTICAL  DIFFUSION  CONSTANT  (METERS2/S) 

55 

c 

RTO(IN) 

X 

INITIAL  RADIUS  OF  DllST  CLOUD  IN  MIND  TRACK  DIRECTION 

56 

r> 

*r 

(METERS) 

57 

c 

RPOt JHT 

s 

INITIAL  RADIUS  OF  DllST  CLOUD  IN  MIND  CTOSS  TRACK 

58 

c 

DIRECTION  (METERS) 
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59 

60 
61 
62 
65 
60 


65 

66 

67 

68 

69 

70 

71 

72 
75 
7a 
75 
7i 

77 

78 

79 
30 
81 
82 
63 
6« 

85 

86 


87 

36 

86 

•>0 

91 

92 

93 
9a 
9$ 

96 

97 

98 

99 
ICO 
101 
102 
103 
106 
10$ 
106 

107 

108 
109 


i  10 
1  1  1 
!  12 
115 
1 !  0 

115 

116 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


FH*C  =  FRACTION  OF  MAIN  CLOUD  OUST  NASS  IN  NODE  A  PARTICLES 

FhRC  s  FRACTION  OF  MAIN  CLO'JO  oust  PASS  in  mode  6  PARTICLES 

3INPW  s  SINE  OF  THE  RIND  A7 jhUTh  ANGLE 

cos  pm  s  cosine  of  the  mind  atimuth  angle 

vmo  =  m  I  NO  VELOCITY  A I  10  METERS  ALTITUDE  tHETERS/S) 

VMlC*  s  X  COMPONENT  OF  THE  Ht NO  VELOCITY  AT  10  METERS  ALTITUDE 
(mETERS/S ) 

VW10Y  *  T  COMPONENT  OF  IH£  MIND  VELOCITY  AT  16  METERS  ALTITUOE 


VKRVICJW) 

VKRVIJC(IW) 

vnrviyiim; 

TD-AJNtiiO 

iOBASEfIM) 

TMA3S0tIM- 


CmEIERS/S) 

i  MIND  VELOCITY  AT  THE  ALTITUDE  OF  THE  INITIAL  VERTICAL 
RADIUS  OF  BURST  jh  (HEIFRS/S) 
c  X  COMPONENT  OF  ThE  MIND  VELOCITY  AT  THE  ALTITUDE  OF 
THE  INITIAL  VERTICAL  RADIUS  OF  BURST  IN  (  METERS/S) 

=  Y  COMPONENT  OF  ThE  MIND  VELOCITY  AT  THE  ALTITUOE  Or 
THE  INITIAL  VERTICAL  RADIUS  OF  BURST  JM  (  METERS/S) 

=  TIME  Df.LAY  BEFO»F  HORIZONTAL  MOTION  DUE  TO  MIND  FOR 
THE  MAIN  OUST  CLflUD  OF  BURST  IN  (StCQNOS) 

=  TIME  DELAY  BEFORE  HORIZONTAL  MOTION  DUE  TO  MIND  FOR 
THE  BASE  OUST  CLOUD  OF  BURST  lM  (SECONDS) 

=  TOTAL  INITIAL  DUrT  ma33  lofted  IN  main  CLOUD  OF  8UKST 
I'n  CGm) 


ThaSSCCIm) 


TOTAL  INITIAL  CApPON  MASS  LOFTED  IN  MAIN  CLOUD  OF 
F.UR3T  IM  <GH) 


COMMON 

1 

2 

common 

COMMON 


1 

COMMON 

COMMON 

1 

2 

3 

a 


/ 


/ 

/ 

/ 

/ 


CINPT1 


ClNPia 

CINPT5 

CIVPT6 

CINITG 


CG“MnH  /  TAPE  / 


/  M  ( 1 0 )  f  FHn0),  CT(10),  CPllO),  CV(IO),  XBtlO), 
YB(IO),  ZBfjO),  003(10),  FCH(IO),  A£V(10>, 
PH13DGT 10) 

/  RHOS,  RHOD,  RHqC,  FH2Q,  YLC,  RMA8,  RBASE 
/  PSF ,  ALPHA,  CUPAG,  RKOA,  ELEVG,  TAIR,  TLAP3E, 
ALTIV,  VKJNd,  ALTm,  PVM,  PhIHOG 
/  NW,  NDC,  NRt,  NTIME,  NPHOR,  IPR1NT 
/  BI(!0),  RTI(tO),  RPIilO),  RVK10),  XKSUC), 

FR(10),  XKV(IO),  RTO(IO),  RPO(IO),  SInPm,  COSPM, 
VN10,  VM10X,  VHlOYf  VMRVIUO),  VKPVJX(IO), 
VhRVIY(lO),  THASSd(IO).  THASSC(’.O),  FmAC,  fmbc, 
PONER,  TDHAJN(IO),  TDDASE (10) 

itapf,  jtape 


data  third  /  C. 33333333  /,  aAn  /  57.295786  /,  R«00  /  I.225E-3  / 

COMPUTE  FRACTION  OF  TOTAL  DOST  LOFTED  IN  BASE  CLOUD 
FBASE  *  RBASE  /  (  1.  <  RBaSE  t 

COMPUTE  FRACTIONS  of  the  main  DUST  CLOUD  mass  in  mode  A  AND  HODE  B 
PARTICLES 

Fmbc  =!./(!.♦  PMAB  ) 

F-AC  =  I.  -  FMBC 


C  LOOP  OVER  The  BURSTS 

DO  25  I N  a  i ,  u, 

C 

C  COMPUTE  TOTAL  bust  MASS  LUFTEn  IN  MAIN  CLOUD.  (  DUST  GRAINS  ONIT, 
C  NO  »ATFR) 

TMSSSn(IM)  a  1 .Ft  »  FCMTI-)  »  (  1 .  -  FH20  )•(!.-  FBASE  )  » 

1  SHOD  »  ACV(TN)  »  M(IM)  »•  I. Ill 

C 

C  Compute  Tl*Tal  h„$s  of  CARBON  I*.’  MAIN  CLOUD 
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TMASSCUHl  *  4S3.S9  *  (  t 


FBASE  )  *  HUM)  *  XLC 


117 

tie  c 

no  C  CALCULATE  INITIAL  RADIUS  OF  EqUI VALENT  SPHERICAL  CLOUD 

12P  RICIN)  *  l.SR  *  (  N(IN)  *  FH(fM)  «  RHOO  /  RHOA  )  ••  THIRD 

121  C 

122  C  CALCULATE  INITIAL  RAOII  IN  THf  SHELL  TRACK,  cross  track  and  THE 

123  C  VERTICAL  DIRECTIONS  FOR  THE  H|jMITION  CLOUD 

124  RTICIm)  «  CT(IM)  »  RKINJ 

125  RPIOwj  *  CP(IN)  •  RICIH) 

126  RVI(tN)  *  CV(IH)  •  RI(tM) 

127  C 

12B  C  CALCULATE  IDEAL  SPHERICAL  CLOuD  HORIZONTAL  DIFFUSION  CONSTANT 

129  XKS(IN)  x  ALPHA  •  SORT t  M(IN>  *  FH(IK)  /  J  ALPHA  ♦  0,5  •  CORAG  }  ) 

130  C 

151  C  CALCULATE  IOEAL  SPHERICAL  CLOuO  RISE  CONSTANT 

132  IF (  ALPHA  „GT.  1,  1  GO  TO  10 

133  Fk(im  r  5,31  /  ALPHA  *•  0.857 

1S«  GO  TO  20 

135  10  FR(IN)  s  5.31  /  ALPHA  »»  0.717 

136  C 

137  C  CALCULATE  MUNITION  CLOUD  VERTICAL  OIFFUSlON  CONSTANT 

1 36  20  XK VC  IN j  *  0.8464  *  XKSCIM) 

139  C 

ISO  C  CALCULATE  ANGLE  (  IN  RADIANS  j  BETNEEN  SHELL  TRACK  AND  HIND  TRACK 

141  C  AZIMUTHS 

142  ASNRAO  c  (  RHIBDGC IN)  «  PHIMdG  )  /  RAO 

143  C 

144  C  FIND  INITIAL  RADIUS  OF  HORIZONTAL  ELLIPSE  IN  MIND  TRACK  AND  CROSS 

145  C  TR*CK  DIRECTIONS 

146  RTP  a  RTICIM)  a  RPI(IN) 

147  3ASMRD  x  SINC  ASNRAO  } 

146  CA3MRD  *  COSt  ASNRAO  ) 

149  RTOCINi  x  RTP  /  30RTC  C  RTItlNl  *  SA3NRD  )  ••  2  ♦  C  RPICINJ  • 

150  1  CASNRO  I  »*  2  ) 

IS!  RPOCIN)  X  PTP  /  SORT C  C  RTICIm)  »  CASNRO  )  »•  2  ♦  I  RPICIN)  * 

152  1  3A3NRD  )  »•  2  ) 

153  C 

154  25  CONTINUE 

155  C 

156  C  FINO  MIND  VELOCITY  COMPONENTS  IN  THE  X  and  Y  DIRECTIONS 

157  PHIHRO  «  PMIMOG  /  RAO 

158  SINPN  3  3 1 N {  PMIMRO  j 

159  CllSPH  s  COSC  PHIMRO  ) 

160  C 

161  C  find  THE  KIND  VELOCITY  AT  10  mETERS  ALTITUDE 

162  VN10  =  VMINO  •  (  10.  /  ALT*  }  ••  PVK 

163  C 

164  YW10X  3  VNtQ  *  SINPN 

165  VN10Y  *  VN10  •  COSPN 

166  C 

167  C  FIND  THE  NINO  VELOCITY  AT  THE  ALTITUDE  OF  THE  INITIAL  VERTICAL 

168  C  PADIU3 

169  C  CALCULATE  THE  TIME  DELAYS  BEFnRE  THE  MIND  BEGINS  MOVING  THF  MAIN 

170  C  AND  BASE  CLOUDS  HORIZONTALLY 

171  DO  27  IN  s  j,  NM 

172-  VNRVHIM)  e  VMINO  •  (  RVICIM)  /  ALTN  )  .»  PVM 

I7J  VMRVIXtIM)  X  VWRVI (IN)  •  SINPm 

174  VHRVTY(IM)  r  VNRVIClN)  •  COSFn 


I'l'  ■WW'fMWpvi't 


Vftise  =  FR( |HJ  *  XKS(IH)  /  Btfllf) 

Tnallr^!!!  *  fl*  *  R^9(1:<’  '  SoHTf  VN10  ••  2  ♦  VRIse  *.  2  ) 

21  CONTINUE  *  *  *  *  RTOn,°  /  0.1,  VWRVKlN)  ) 

XPITE  OUT  THE  INITIAL  DATA 

HRITECJTAPE,  JO)  {  (  |W,  RKIm),  RTKIM),  RPI(tx),  RVI(JH), 

*  R.Ot.H),  RPO(IX),  FR(Ix),  XKS(IH),  XKVdN)  ), 

30  FOPHATUHl//,  liioj*  *'  N*  5 

2SIUITIAL  OUST  CLOUDS  ,  ,„o.  KM™'.  P*RA,!ETEM  0E 

„  «,..,£?Ul¥*L£HT  R*DIUS  IN  RADiLd  IN  RADIUS  IN  RADIUS 

61HS,  B*°1U'  !N  SPHERICAL  SPHERICAL  CLOUD  DUST  CLOUD  «£R.  / 

Apfr”8!!^  ^=nH!RIC*L  SHELL  TR"C*  5HELL  CRCSS  VERTICAL  HIND  T 

|R*-“  CR0SS  >-LOUD  RI3E  DIFFUSION  CDEF-  TICAL  DIFFfilCN  / 

1I25HHUH3ER  CLOUD  RADIUS  DIRECTION  TRACK  DIREt-  DIRECTION  DIRECT 
2I0N  TRICK  OIREC-  CONSTANT  FJCISNT  COEFFICIENT  /ll 

T I  ON  (ME  ['fill*3’  TION(hETERS)  (METERS)  <H£TE 

cf  3  ItV.  ltV,  r,,  .  -  t»ETER32/S)  (hETERS2/S)  / 

6  P1T*2 F|1)1'  F,2*!'  FIE.I*  F1J.I,  FI2.1,  F13.2,  FI3.2, 


"RITE (JTAPE,  AG) 

00  FORMAT! (HOF  1H0, 

1  70H 

2SSES  LOFTED  (CM)  /  IhC,  INITIAL  DUST  AND  CARSON  Ha 

31 1RHSUS3T  MAIN  CLOUD  8AS£ 

SOMBER  oust-hode^a 

7C)C)E  8  C*Re0"  0U3T-H0DE  A  CUST-NGDE  B  CANBON  SUHIaaS* 

DO  60  IN  r  1,  NM 

X.MDA  s  Fmac  *  (HASSD(IN) 

*M03  *  FH3C  •  THASSD(IH) 

XmC  *  THASSl-(IN) 

BHDA  *  RBASE  »  X**0A 
BMOrl  *  B3A3E  »  XHD9 
BMC  »  R0ASE  •  VHC 
T«D»  s  XHDA  ♦  SmDA 
THOM  *  XM0B  a  rmDS 
TMC  =  XMC  ♦  SMC 
Th  s  T»DA  ♦  TmDB  t  THC 

^■•SITE(JTAPE,  SO)  IK,  XHDA,  «M0B,  XKC,  9hDa,  AMOS,  BMC,  TKDA,  TMDB, 
5o^forkat(1H^,^J3,  2x;  JP2EU.2,  eij.2,  2EJ3.2,  EJS.2,  2E,j.2,  t%s^t 
60  CONTINUE 
return 

END 


SUBROUTINE  TIMECOt  T,  IN  ) 


1 

2  C 

J  C  THIS  ROUTINE  CALCULATES  THE  LOCATION  AND  CLOUD  DIHENSIONS  OP  THE 

a  C  ZERO  DIAMETER  PARTICLES  IN  THg  HAIN  AND  BASE  CL0UD3  OF  BURST  IN  AT 

5  C  TIME  T 

6  C 

T  C  INPUTS  FROM  CALL  STATEMENT 

8  C  T  «  TIME  AFTER  BURST  CS) 

9  C  IN  ■  BURST  NUMBER 

10  C 

tl  C  INPUTS  FROM  CINpT  COMMON  AREA J 

12  C  ALTIV  ■  ALTITUDE  ABOVE  GROUND  OF  INVERSION  LAYER  (MEJtrtS) 

13  C  *B( IN)  ■  X  COORDINATE  OF  THE  GROUND  SURFACE  AT  BURST  IN 

1R  C  (HETERS) 

15  C  YB(IH)  «  Y  COORDINATE  OF  THE  GROUND  SURFACE  AT  BURST  IN 

16  C  (HETERS) 

17  C  ZB(IN)  ■  Z  COORDINATE  OF  THE  GROUND  SURFACE  AT  BURST  IN 

18  C  (METERS) 

19  C  PSF  b  ATHOSPHERIC  PASOUIUV  STABILITY  FACTOR  (1  ■  A,  2  ■  B, 

20  C  3  *  C,  R  «  0#  5  •  E) 

21  C 

22  C  INPUTS  FROM  CINTG  COMMON 

23  C  RI(IN)  *  INITIAL  RADIUS  OF  TyE  EQUIVALENT  SPHERICAL  CLOUD  FOR 

24  C  BURST  NUMBER  IN  (HETERS) 

25  C  RTI(IH)  «  OUST  CLOUD  INITIAL  RADIUS  IN  THE  SHELL  TRACK  DIRECTION 

26  C  (METERS) 

27  C  RPI(IN)  •  OUST  CLOUD  INITIAL  RADIUS  IN  THE  SHELL  CROSS  TRACK 

28  C  DIRECTION  (METERS) 

29  C  RVI(IM)  «  OUST  CLOUD  INITIAL  RADIUS  1“  THE  VERTICAL  DIRECTION 

30  C  (HETERS) 

31  C  XKS(IN)  «  IDEAL  SPHERICAL  CLOU&  HORIZONTAL  DIFFUSION  CONSTANT 

32  C  (METERS2/Si 

33  C  FR(IN)  «  IDEAL  SPHERICAL  CLOUD  RISE  CONSTANT 

39  ■  C  XKV(IM)  a  OUST  CLOUD  VERTICAL  DIFFUSION  CONSTANT  (METER32/S) 

35  C  RTOCH)  a  INITIAL  RADIUS  OF  DuST  CLOUD  IN  HIND  TRACK  DIRECTION 

36  C  (HETERS) 

37  C  RPO(IN)  a  INITIAL  RADIUS  OF  Du$T  CLOUD  IN  MIND  CTOSS  TRACK 

38  C  OIPECTION  (HETERS) 

39  C  SINPN  a  SINE  OF  THE  HIND  AZIMUTH  ANGLE 

40  C  .  CUSPH  a  COSINE  OF  THE  NINO  AZIMUTH  ANGLE 

41  C  VH 1 0  a  NINO  VELOCITY  AT  10  HETERS  ALTITUDE  (METERS/S) 

42  C  VNlOX  a  X  COMPONENT  OF  THE  nINO  VELOCITY  AY  10  HETERS  ALTITUDE 

43  C  (METFP3/S) 

04  C  VN10Y  *  Y  COMPONENT  OF  THE  HIND  VELOCITY  AT  10  HETERS  ALTITUDE 

45  C  (METERS/S) 

46  C  VHRVI (IN)  a  HIND  VELOCITY  AT  THE  ALTITUDE  OF  THE  INITIAL  VERTICAL 

47  C  RADIUS  OF  BURST  lH  (METERS/S) 

44  C  VHRVIX(IN)  a  X  COMPONENT  OF  ThE  HIND  VELOCITY  AT  THE  ALTITUDE  OF 

49  C  THE  INITIAL  VERTICAL  RADIUS  OF  BURST  IN  (  METERS/S) 

50  L  VMRVIY(IN)  a  y  COMPONENT  OF  THE  MIND  VELOCITY  AT  THF  ALTITUDE  OF 

51  C  THE  INITIAL  VERTICAL  RADIUS  OF  BURST  IN  (  METERS/S) 

52  C  TDNAIN(IH)  a  TIME  DELAY  BEFORE  HORIZONTAL  MOTION  DUE  TO  HIND  FOR 

53  C  THE  MAIN  DUST  CLOUD  OF  BURST  IN  (SECONDS) 

54  c  TOBASE(IN)  a  TIME  DELAY  BEFORE  HORIZONTAL  MOTION  DUE  TO  HIND  FOR 

55  C  THE  BASE  OUST  CLOUD  OF  BURST  IN  (SECONDS) 

56  C 

57  C  OUTPUTS  TO  CTIHE  COMMON 

58  C  XCENTO  a  X  COORDINATE  OF  THE  CENTROID  FUR  ZERO  DIAMETER 
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PARTICLES  IN  THE  hain  CLOUD  < HETERS ) 

YCENTO  *  r  COORDINATE  OF  r«E  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  HAIN  CLOUD  (METERS) 

ZCENTO  a  Z  COORDINATE  OE  THE  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  MAIN  CLOUD  (METERS) 

BXCNTO  a  X  COORDINATE  OF  THE  CENTROIC  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  8ASE  CLOUD  (METERS) 

BVCNTO  a  Y  COORDINATE  OF  t"E  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  BA3E  CLOUD  (METERS) 

8ZCNTS  =  Z  COORDINATE  OF  T-'E  CENiRCID  FOR  ZERO  DIAMETER 
PARTICLES  IN  the  BASE  CLOUD  (METERS) 

RS  n  RADIUS  OF  THE  IDEAL  SPHERICAL  BUBBLE  AT  TIME  T 

(HF.T6R8) 

KS  =  ALTITUDE  ABOVE  GROUND  LEVEL  OF  THE  CENTER  OF  THE 

IDEAL  3PHCRICAL  RUBBLE  (HETERS) 

R"  a  RADIUS  OF  T«r  ZERO  DIAMETER  PARTICLES  IN  THE  MAIN 

CLOUD  ;n  THE  kI*jD  TRACK  DIRECTION  (METERS) 

°P  a  RADIUS  OF  THE  ZE<-0  DIALER  PARTICLES  IN  THE  K.'.IN 

OIPF.CTJON  PLRP£N[>ICUL  >R  TO  TrtE  WIND  TRACK  DIRECTION 
(METERS) 

SV  a  fcAOlUS  OF  THE  ZErO  DIAMETER  PARTICLES  IN  THE  MAIN 

CLOUD  IN  THE  VERTICAL  DIRECTION  (METERS) 

SRT  a  RADIUS  OF  THE  ZERO  DIAMETER  PARTICLES  IN  THE  BASE 

CLOUD  IN  THE  KIND  TRACK  DIRECTION  (METERS) 

BRP  «  RA0IU3  OF  T«E  ZERO  DIAMETER  PARTICLES  IN  THE  BASE 

DIRECTION  PERPENDICULAR  TO  THE  WIND  TRACK  DIRECTION 
(HETERS) 

BRV  a  RADIUS  OF  THE  ZERO  DIAMETER  PARTICLES  IN  THE  BASE 

CLOUD  IN  THE  VERTICAL  DIRECTION  (METERS) 

Common  /  CINPTI  /  WOO),  FH(Ifl),  CT(!0),  CPOO),  CV(IO).  XB(10), 

1  TB(t9)i  ZB ( 1 0 ) ,  DOB (10)#  FCH(IO),  ACV(IO), 

2  PHIBOG ( t 0 ) 

COMMON  /  CINPTS  /  PSF,  ALPHA,  CDRAG,  RHOA,  ELEVG,  TAIR,  TLAP3E, 

1  ALTIV,  VWINt),  ALTH,  PVW,  PHIWDG 

COMMON  /  CINITG  /  RI(!0>,  RTI(IO),  RPKIO),  RVt(lO),  XKS(IO), 

1  FR(10),  XKV(IO),  RT0UO),  RPO(lO),  SINPW,  COSPW, 

2  VW10,  VWIOX,  VN10Y#  VWRvI(lO),  VMRVIX(IO), 

5  VHflVITUO),  TMA3SDU0),  TmASSC  (10),  FMAC,  FMBC, 

0  POWER,  TOMA jN( 10),  TDBASE(IO) 

COMMON  /  CTIME  /  XCENTD,  YCEN’TD,  ZCENTO,  XCENTC,  TCENTC,  ZCENTC, 

1  RTD,  RPO,  RvD-  RTC.  RPC,  HVC,  RS,  MS,  RT,  RP, 

2  RV,  XCF.’JTO,  YCENTO,  ZCENTO,  BXCNTD,  BYCNTD, 

3  BZCNTO,  BXCNTC,  BYCNTC ,  BZCNTC,  BRTD,  BRPD, 

R  BRVD,  8RTC,  BRPC,  BRVC,  BXCNTO,  BYCNTO,  BZCNTO, 

5  ORT,  BRP,  BrV 

DIMENSION  BSZ (6 ) ,  BC2(6),  BCXr(B) 

DATA  BSZ  /  0.90,  0.65,  0.60,  0-V6,  0.73,  0.67  /, 

1  3CZ  /  0.5675,  0,0266,  0,^dBf  0.3262,  0,2093,  0.U79  /, 

2  6CXV  /  30.,  22,5,  IS.,  10.’,  7,5,  5,  /,  RAP  /  57,296  /, 

3  BHR  t  3.  / 

MAIN  CLOUD 


FINO  THE  RADIUS  AND  ALTITUDE  0'  THE  IDEAL  SPHERICAt.  BUBBLE 
RS  a  SORT \  2,  a  XKS(IM)  •  T  ♦  RI(IW)  •*  2  ) 

MS  a  RVKIH)  ♦  FR(TH)  •('13*  Hl(lw)  ) 
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11A 

119 

120 
121 
122 
123 
120 

125 

126 
127 
12A 

129 

130 

131 

132 
13J 

134 

135 
13b 

137 

138 
119 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 


C 

C  LIMIT  rise  ALTITUDE  TO  ALTITUDE’ of  inversion  later 
IF(  HS  ,GT.  ALT1V  )  HS  ■  ALTIy 
C 

C  FOR  THIS  TINE  AND  BURST,  FIND  THE  CENTROID  COORDINATES  OF  THE  ZERO 
C  DIAMETER  particles 

TH  ■  AHAX1I  0.,  T  -  TDHAIN(IM)  ) 

XCENTO  *  XS(IH)  ♦  VN10X  «  TH 
VCENTO  •  Y8(IN)  t  VH10V  «  TH 
ZCENTO  ■  ZB(IH)  ♦  HS 

r 

C  FIND  THE  RADII  OF  THE  ZERO  DIAMETER  PARTICLES  IN  THE  MIND  TRACK, 

C  CROSS  TRACK  AND  VERTICAL  DIRECTIONS 

HT  «  SORT {  8.  »  XKVIINJ  »  T  +  RTO(IN)  •»  2  ) 

RP  *  SORT {  8.  *  XKV(IN)  *  T  ♦  RPO<IN)  *»  2  ) 

RV  *  SORT (  2.  *  XKVCIW)  »  T  ♦  RVI(IN)  *•  2  ) 

C 

C  BASE  CLOUD 

T8  *  AHAX1C  0.f  T  -  T, DBASE  (IN)  ) 

0XCNTO  «  XS(IN)  ♦  VWRVIXI IN)  •  TD 
BYCNTO  •  YB(IR)  ♦  VNRVIY(IN)  ,  T8 
BZCNTO  »  Z8CIIO  ♦  RVI(IN) 

C 

C  INOEX  OF  PASOUILL  STABILITY  CATEGORY 

IP9F  ■  IFIX(  PSF  ) 

S  »  BSZ(IPSF) 

St  «  1.  /  S 

PONEr  ■  8  /  C  4,  *  3  -  2.  ) 

0I3T  »  VMRVHINJ  *  T 

BHT  «  8HR  •  RTO(IM)  ♦  BCXY(IP|FJ  •  DIST  /  RAD 
BRP  ■  8HR  *  RPO(IN)  ♦  BCXY(IPSF)  *  DIST  /  RAD 
BRV  *  (  RYI(IN)  •«  SI  4  BCZ(IpSF)  *  DIST  )  »»  S 
C 

RETURN 

END 
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Wlllilllljj  H . .  •!'  y',.  ili,l".| 


SUBROUTINE  TtMECG(  T,  IH.  IOG  ) 


THIS  ROUTINE  CALCULATES  .he  geometric  PARAMETERS  or  SIZE  GROUP  IOG 
AT  TIME  T  FOR  BURST  NUMBER  I« 

INPUT3  FROM  CALL  3TATEHENT 
T  *  TIME  AFTER  BURST  (S) 

IH  *  BURST  NUMBER 

iog  s  number  of  the  size  group 

INPUTS  FROM  CII.'PT  COMMON  AREAg 

RhOA  i  AMBIENT  AIR  OENSjTY  aY  GROUND  LEVEL  (GH/CHJ) 

R.HOO  *  SUL*  DENSITY  OF  THE  LOFTED  OUST  GRAINS  (GH/CHJ) 

RHOC  a  SULK  DENSITY  OF  THt  CARBON  PARTICLES  (GH/CMJ) 

OGRllUP ( IDG )  =  MAX IMUH  DIAMETER  OF  THE  PARTICLES  IN  THE  IOG  SIZE 

GROUP  (MICRONS) 

ZBUM)  a  Z  COORDINATE  OF  T^E  GROUND  SURFACE  AT  BURST  IK 
(METERS) 

INPUTS  FROM  CINITG  COMMON 

ftl(lH)  =  INITIAL  RADI'-S  0?  ThE  EQUIVALENT  SPHERICAL  CLOUD  FOR 
BURST  NUMBER  IH  (METERS) 

RVI(IH)  =  DUST  CLOUD  INITIAL  RADIUS  IN  THE  VERTICAL  DIRECTION 
(METERS) 

XKS(Ir)  «  IDEAL  SPHERICAL  CLCuD  HORIZONTAL  DIFFUSION  CONSTANT 
(METER32/S) 

FR(IH)  a  IDCAL  SPHERICAL  ClOiP  «13£  CONSTANT 
XKV(IK)  a  DUST  CL'JUD  VERTICAL  DIFFUSION  CONSTANT  (HETER3?/9) 
RTO(tK)  «  INITIAL  RADIUS  OF  OUST  CLOUD  IN  MIND  TRACK  DIRECTION 
(METERS) 

RPOP.N)  a  INITIAL  RADIUS  OF  DOST  CLOUD  IN  KIND  CT0S3  TRACK 
DIRECTION  (METERS) 

SJNPH  a  Sl.iC  Oc  THE  MIND  AZjMUTH  ANGLE 

CO'PH  a  COSINE  OF  THE  HIND  aZIHUTH  ANGLE 

VH*,0  a  MIND  VELOCITY  AT  IT  "ETsRS  ALTITUDE  (HETERS/3) 

V«RVIUK>  a  WIND  VELOCITY  AT  THE  ALTITUDE  OF  THE  INITIAL  VERTICAL 
RADIUS  OF  BURST  JH  (METERS/S) 

TOMAIN(IH)  a  TIME  DELAY  S£FOBr  HORIZONTAL  MOTION  DUE  TO  KIND  FOR 
THJ  MAIN  DUST  CLOUD  OK  BURST  IH  (SECONDS) 

TDBASE(IK)  a  TIME  delay  BEFORE  HORIZONTAL  MOTION  OUE  TO  HIND  FOR 
THE  BASE  DUST  ClOUC  OF  BURST  IK  (SECONDS) 


'NPUT3 

XCEMTO 


FROM  CTI.Hc  COMMON 

o  X  COORDINATE  OF  THE  CENTROID  FOR  ZERO  DIAHETER 
PARTICLE3  IN  Tm£  MAIN  CLOUD  (METERS) 

*  Y  COORDINATE  OF  ?«£  CENTPOID  FOR  ZERO  DIAMETER 
PARTICLES  IN  The  MAIN  CLOUD  (METERS) 
a  Z  COORDINATE  OF  THE  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  ThE  HAJN  CLOUD  (METERS) 
a  X  COORDINATE  OF  tHL  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  aiS£  CLOUD  (METERS) 
a  Y  COORDINATE  OF  t> -  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  BASF  CLOUD  (METERS) 
a  z  COORDINATE  OF  THE  CENTROID  FOR  ZERO  DIAMETER 
PARTICLES  IN  THE  BASE  CLOUD  (METERS) 
a  RADIUS  OF  THE  IDEAL  SPHERICAL  BUBBLE  AT  TIHE  T 
(METERS) 

a  ALTITUDE  ABOVE  GROUND  LEVEL  OF  THE  CENTER  OF  THE 
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IOE*L  SPHERItAL  BOBBLE  (HETERS) 

«  RAOIUS  OF  THE  zero  ouhetf.r  particles  in  THE  HAIN 
CLOUD  IN  the  WInO  TRACK  DIRECTION  {METERS) 

■  RADIUS  OF  THE  ZERO  DIAMETER  PARTICLES  IN  THE  HAIN 
DIRECTION  PERPENDICULAR  TO  THE  HIND  TRACK  DIRECTION 
(HETER3) 

■  RADIUS  OF  THE  ZErO  DIAMETER  PARTICLES  IN  THE  MAIN 
CLOUD  IN  THE  VERTICAL  DIRECTION  (HETER3) 

■  RADIUS  OF  THE  ZErO  DIAMETER  PARTICLES  IN  THE  BASE 
CLOUD  IN  THE  NIND  TRACK  DIRECTION  (METERS) 

s  RADIUS  OF  THE  ZERO  OIAME'iER  PARTICLES  IN  THE  BASE 
DIRECTION  PERPENDICULAR  T1  THE  HINO  TRACK  DIRECTION 
(METERS) 

*  RADIUS  OF  THE  ZErO  DIAMETER  PARTICLE3  IN  THE  BASE 
CLOUD  IN  THE  VERTICAL  DIRECTION  (METERS) 


OUTPUTS 

XCENTD 


ZCENTD  8 
XCENTC  ■ 
VCENTC  ■ 
ZCENTC  » 


8ZCNT0 


TO  CTIHE  COMMON 

8  X  COORDINATE  OF  THE  CENTROID  FOR  DUST  PARTICLES  (BOTH 
HODE  A  AND  MODE  B)  F{jR  THE  MAIN  CLOUD  IN  SIZE  CROUP 
IDG  FOR  BURST  NUMBER  IH  AT  TIME  T  (METERS) 

8  Y  COORDINATE  OF  THE  cENTROIO  FOR  DUST  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  IN  AT  TIME  T  (METERS) 

8  Z  COORDINATE  OF  THE  c£NTROID  FOR  DUST  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  JM  AT  TIHE  T  (METERS) 

8  X  COORDINATE  OF  THE  eENTROIO  FOR  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  IN  AT  TIME  T  (METERS) 

■  Y  COORDINATE  OF  THE  CENTROID  FOR  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  IN  AT  TIME  T  (METERS) 

8  Z  COORDINATE  OF  THE  CENTROID  FOR  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  IN  AT  TIHE  T  (METERS) 
a  RADIUS  IN  THE  NINO  TRACK  DIRECTION  FOR  DUST  PARTICLES  IN 
THE  MAIN  CLOUD  IN  SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIHE  T 
(METERS) 

8  RADIUS  IN  The  DIRECTION  PERPENDICULAR  TO  MIND  TRACK 

DIRECTION  FOR  DUST  P*RTTCLES  IN  SIZE  GROUP  IDG  FOR  BURST 
IN  AT  TIME  T  (MCTERS) 

a  RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  DUST  PARTICLES  IN 
SIZE  GROUP  IOG  FOR  BURST  IN  AT  TIME  T  (METERS) 

8  RADIUS  IN  THE  MIND  TrACK  DIRECTION  FOR  CARBON  PARTICLES 
IN  SIZE  CROUP  IOC  FOr  BURST  IN  AT  TIME  T  (METERS) 
a  RADIUS  IN  THF  OIRECTlON  PERPENDICULAR  TO  THE  HIND  TRACK 
DIRECTION  for  CARBON  PARTICLES  IN  SIZE  GROUP  IDG  FOR 
BURST  IN  AT  TIME  T  (METERS) 

a  RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  CARBON  PARTICLES  IN 
SIZE  GROUP  IOG  FOR  BuRST  IN  AT  TIME  T  (METERS) 
a  X  COORDINATE  OF  THE  b*3E  CLOUD  CENTROID  FOR  DUST 

PARTICLES  (BOTH  MODE  A  AND  MODE  B)  FOR  SIZE  GROUP  IDG  FOR 
BURST  NUMBER  IN  AT  TjME  T  (METERS) 
a  T  COORDINATE  OF  THE  b*SE  CLOUD  CENTROID  FOR  DUST 
PARTICLES  FOR  SIZE  GROUP  IOG  FOR  BURST  IN  AT  TIHE  T 
(METERS) 

8  Z  COORDINATE  OF  THF  rASE  CLOUD  CENTROIO  FOR  OUST 
PARTICLES  FOR  SIZE  GoOUP  IDG  FQR  BURST  IN  AT  TIME  T 
(METERS) 

8  X  COORDINATE  OF  THE  B*SE  CLOUD  CENTROID  FOR  CARBON 
PARTICLES  for  SIZE  Group  IDG  FOR  BURST  in  at  TIHE  T 
(METERS) 

*  Y  COORDINATE  OF  THE  BASE  CLOUD  CENTROID  FOR  CARBON 


PARTICLES  FOR  SUE  GROUP  JOG  FOR  BURST  IH  AT  TIME  T 
(PETERS) 

BZCNTC  a  1  COORDINATE  OF  THE  gASE  CLOUO  CENTROID  FOR  CARBON 
PARTICLES  FOR  SIZE  GROUP  IDG  FOR  BUR3T  1*.  AT  TIME  T 
(METERS) 

BRTO  a  RADIUS  IN  THE  WIND  TrA(  '  DIRECTION  FOR  THE  BASE  CLOUD 

OUST  PARTICLES  IN  SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIME  T 
(METERS) 

8RPD  a  RADIUS  IN  Th£  DIRFCTjON  PERPENDICULAR  TO  THE  WIND  TRACK 

DIRECTION  FOR  THE  BAjE  CLOUD  DUST  PARTICLES  IN  SIZE  GROUP 
IDG  FOR  BURST  IW  AT  TIME  T  (METERS) 

BRVO  a  RADIUS  TN  TH£  VFRTICaL  DIRECTION  FOR  THE  BASE  CLOUD  DUST 
PARTICLES  IN  3IZE  GROUP  IDS  FOR  BURST  IW  AT  TIME  T 
(METERS) 

BRTC  a  RADIUS  IN  THE  WIND  Tr/.CK  DIRECTION  FOR  THE  8ASE  CLOUD 

CARBON  PARTICLES  IN  oITE  GROUP  IDG  FOR  BURST  IW  AT  TIME  T 
(METERS) 

BRPC  e  RADIUS  IN  THE  DIRECTION  PERPENDICULAR  TO  THE  WIND  TRACK 
DIRECTION  FRF  THE  BA.jE  CLOUD  CAR30N  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  pUFST  I*  AT  TIME  T  (HETERS) 

BRVC  a  RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  THE  BASE  CLOUD 

CARBON  PARTICLES  IH  $IZE  GROU-»  IDO  FOR  BURST  lit  AT  TIHE  T 
(METERS) 

COMMON  /  CINPT1  /  N'tO).  F M ( 1 0 ) 1  CT(IO),  CF(IO),  CV(10),  XB(iO), 

1  TfHtO),  Zli(iO),  OOBIIO),  FCM(IO),  ACVtlO), 

2  PHTBDG(IO) 

COMMON  /  CINPTR  /  RINIG,  RHODi  RHOC,  Fh20,  XLC,  RMAB,  RBA3E 
common  /  CINPT5  /  PSF,  ALPHA,  CORaG,  RHOA,  ELEVG,  TAtR,  TLAP3E, 

1  ALTIV,  VKINg,  ALTW,  Pvw,  PHIHDG 

COMMON  /  CINPT7  /  OGROUP(SO),  T1me(2S) 

COMMON  /  CINITG  /  RI(IO),  RTI(I0),  RPI(IO),  RVi(IO),  XK3C10), 

1  FW(IO),  XXV(tft),  RTO(SO),  RPO(IO),  3INPW,  C03PW, 

2  VWIO,  VWlftX,  VWJOT,  VWRVIOO),  VWRVIXCIO), 

J  VWRVJVCC  ,  THA3SDC10),  TMASSC(IO),  FmAC,  FmBC, 

«  POWER,  TDHAJN(IO),  TDBASEUO) 

COMMON  /  CTImE  /  XCEUTO,  VCENtOi  ZCENTD,  XCENTC,  YCF.NTC ,  ZCENTC, 

1  RTO,  RPD,  R>/D>  RTC,  RPC,  HVC,  R3,  HS,  RT,  RP, 

2  RV,  X,"  NTO,  YCENTO.  ZCENTO,  BXCNTD,  BTCNTD. 

J  BZCNTU,  BXCnTC,  BYCNTC,  BZCNTC,  ORTD,  BRPD, 

a  BRVD,  BRTC,  BRPC,  BRVC,  BXCNTO,  BYCNTO,  BZCNTO, 

5  BRT,  8RP,  B R/ 

FIND  INITIAL  CLOUD  RISE  VELOCITY 
VRISE  *  FR(IW)  *  JKS(IH)  /  Rl(IN) 

CALCULATE  TERMINAL  VELOCITIES  FOR  OUST  AND  CARBON  OARTICLES 
C3  «  ae.67  /  {  RHOA  A  OC-ROUP(  tUC)  ) 

VTO  a  I.E-2  »  (  SORT!  CJ  **  l' *  O.cieg  *  rmOL  *  DGHOUP(IOG)  / 

I  RHOA  )  _  CJ  ) 

VTC  a  I.E-2  *  (  SORT'  C5  *»  2  »  0.2 9«2  «  RHOC  *  OGC'lUPC  IDG)  / 

I  RHOA  )  -  CJ  ) 

CALCULATE  Cl  AND  C2  CONSTANTS  FOR  HORIZONTAL  CENTRLlu  COORDINATES 
CIO  a  I  ,£6  *  RHOA  /  {  J.  •  RHnO  *  OGROUPUDG)  , 

CIC  a  1.E6  *  RHOA  /  (  J.  *  RrinC  *  DGROUPIIPG)  ) 

C2D  a  J.25BE5  /  C  RHOD  a  DGROilPl  IDG)  **  2  ) 

C2C  0  J.25BES  /  f  RHOC  *  DGHOu  (IDG)  **  2  ) 
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MAIN  CLOUD  CALCULATIONS 

find  Z  COMPONENT  of  centroid  for  oust  and  carbon 
ZCENTD  *  ZB(IH)  ♦  (  ZCENTO  -  »BUh)  I  * 

1  (I.  -  AHINH  l.,  VTD  /  VRISE  )  )  -  VTD  *  T 

ZCENTC  e  ZBdIO  ♦  C  ZCENTO  -  ;8( IM>  )  » 

1  (I.  -  AMtN((  l.,  VTC  /  VRISE  )  )  -  VTC  *  T 

CALCULATE  DISTANCE  THE  SIZE  GrOUP  HA3  LAGGED  BEHIND  THE  ZERO 
DIAMETER  GROUP 
OLAGO  *  0. 

TH  *  AMAX1 (  0.,  T  -  TOHAIN(IM)  ) 

IF t  TM  ,LE.  0.  j  GO  TO  HO 

CO  *  CIO  *  VHJO  /  C20 

IF<  C2D  *  TH  .GT.  20.  )  GO. TO  10 

l^/*c?D*  {  *L0Gf  I  ♦  c«  )  «  EXP(  C2D  •  TH  )  •  CA  !  •  C20  *  TH  j 
GO  TO  20 

10  OLAGO  *  ALOG(  1.  ♦  CO  T/  CIO 
20  C«  3  C1C  »  VHJO  /  C2C 

IF{  C2C  »  TH  .GT.  20.  j  GO  TO  30 

OLAGC  «  (  ALOG(  <  1.  ♦  Ca  )  *  EXP{  C2C  *  TH  )  -  C«  )  -  C2C  »  TH  ) 
1  /  C1C 

GO  TO  «0 

SO  DlAGC  *  ALOGf  1.  ♦  CO  }  /  C1C 

no  XCENTO  *  XCENTO  -  OLAGO  *  •‘INpH 
YCENTO  ■  YCENTO  *  OLAGO  »  COSpH 
XCENTC  =  XCENTO  -  DLAGC  *  SINpW 

YCENTC  *  YCENTO  -  OLAGC  A  COSpH 

CALCULATE  EFFECTIVE  DIFFUSION  COEFFICIENTS  FOR  THIS  SI2E  GROUP 
VH2  i  VH10  »*  2  ♦  VRISE  **  2 

XKVD  «  XKVdHj  /  SORT (  16.  .  VTD  *.  2  /  VH2  ♦  1.  1 

XKVC  *  XKV(IM)  /  SORT (  16.  •  VTC  «*  2  /  Vh2  ♦  1.  ) 

^DirULiIL^?IUS  °F  3,ZE  GR0U|*  IN  «RTICAL.  M1N0  T-ACh;  AND  CROSS 
{RACK  DIRECTIONS 

RVO  *  SORT C  2.  *  XKVD  *  T  ♦  RvICIW)  ••  2  ) 

RVC  ■  SORT (  ?.  .  XKVC  *  T  ♦  RyHlNj  •»  2  ) 

RTO  3  SORT (  «.  •  ,KVD  »  T  ♦  RjOdw)  «»  2  J 

RTC  *  SORT (  8.  •  XKVC  *  T  ♦  RtO(INJ  *»  2  ) 

RPO  a  SORT  (  8.  «  XKVD  *  T  ♦  R^OdH)  •*  2  ) 

RPC  a  SORT (  8.  «  XKVC  *  T  ♦  RpO(lH)  *•  2  ) 

RASE  CLOUO  CALCULATIONS 

CENTRqIO  LOCATIONS 

FINO  z  COHPONENT  OF'  CENTROID  FOR  DUST  AND  CARBON 
8ZCNT0  =  BZCNTO  -  VTD  *  T 

BZCNTC  s  BZCNTO  -  VTC  «  T 

CALCULATE  distance  THE  SIZE  GrOUP  HAS  LAGGED  BEHIND  THE  ZERO 

DIAMETER  GROUP 

Cfl  =  CIO  *  VWRVIdW)  /  C2D 

OLAGC  a  0, 

TB  a  AMAX1C  0.,  T  -  TOBASEd*)  ) 
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233 

IF {  TB  ,l£.  0.  )  GO  TO 

80 

239 

IF (  C2ti  «  TB  .GT.  20.  ) 

GO  TO  50 

235 

OLAGO  =  C  AL05I  C  1.  ♦  1 

C« 

)  *  EXP(  C2D  a  TB  )  • 

256 

1  /  CIO 

237 

GO  TO  60 

238 

50 

OLAGD  s  *IQG(  I.  t  Cfl  j 

/ 

C  ID 

239 

60 

C9  a  C1C  *  VHRVItIM)  /  i 

C2C 

2P0 

IF.'  C2C  *  TB  ,GT.  20.  ) 

GO  TO  70 

2PI 

OUGC  *  <  *LOGf  (  i.  ♦ 

c« 

)  »  £XP(  C2C  *  TB  )  • 

292 

I  /  C1C 

293 

GO  TO  80 

2oe 

70 

DLAGC  a  ALOGI  t.  ♦  C9  j 

/ 

C1C 

295 

C 

296 

80 

SXCNTO  *  BXCNT 0  -  DLAGD 

* 

SINpW 

297 

ByCWTO  *  8TCNT0  -  OLAGO 

ft 

COSpH 

298 

BXCNTC  *  8XCNT0  -  DLAGC 

ft 

SINpH 

239 

BTCNTC  *  DTCNTO  -  DLAGC 

ft 

CUSP" 

250 

c 

251 

C 

RADII  OF  5IZE  GROUP 

252 

DENOH0  a  16.  *  VTD  *•  2 

/ 

AMAxl  C  YWRVKIH)  ** 

253 

DEf»'OHC  *  16,  '«  VTC  **  2 

/ 

AHAj(lC  VtfRVICIN)  **  i 

259 

8RTD  =  BRT  /  DENOHO 

255 

BRTC  *  BRT  /  DENOKC 

256 

9RP0  *  9RP  /  DENOHC 

257 

BRPC  a  6RP  /  DENOKC 

258 

BRVD  *  BRV  /  DENCHD  ** 

POWER 

259 

8RVC  3  BRV  /  OENOMC  a* 

PONER 

260 

C 

261 

RETURN 

262 

end 

C«  )  -  C2D  *  T8  > 


CP  )  -  C2C  *  TB  > 


2,  1,  )  ♦  1. 

2.  1.  )  ♦  1. 
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SUBROUTINE  PATH(  IM,  IDG/  IRT  } 


1 

2  C 

5  C  THIS  ROUTINE  COMPUTES  THE  MAS3E9  PENETRATED  (GM/CH2)  ALONG  THE 

9  C  PATH  BETWEEN  RECEIVER  AND  TRANSMITTER  NUMBER  IRT  OUE  TO  EACH 

5  C  MATERIAL  (  NODE  A  DUST#  MODE  B  DUST  AND  CARBON  )  IN  SIZE  GROUP 

6  C  IDG  FROM  BURST  IN 

1  C 

e  C  INPUTS  FROM  CALL  STATEMENT 

9  C  IN  s  BURST  NuHbER 

10  C  IDG  *  SIZE  GROUP  NUMBER 

11  C  IRT  *  RECEIVER  -  TRANSMITTER  PAIR  NUMBER 

12  C 

13  C  INPUTS, FROM  CINP1  COMMON  AREAS 

14  C  XR(1RT}  *  X  COORDINATE  OF  RECEIVER  NUMBER  IRT  (HETER3) 

15  C  VRCIRT)  »  V  COORDINATE  OF  RECEIVER  NUMBER  IRT  (METERS) 

16  C  ZR(IRT)  *  Z  COORDINATE  OF  RECEIVER  NUMBER  IRT  (HETERS) 

17  C  XTURTT  ■  X  COORDINATE  OF  TRANSMITTER  NUMBER  IRT  (METERS) 

18  C  YT( IRT j  «  Y  COORDINATE  OF  TRANSMITTER  NUHBER  IRT  (METERS) 

19  C  ZT(IRT)  «  Z  COORDINATE  OF  TRANSMITTER  NUHBER  IRT  (METERS) 

20  C  FCH(IH)  «  FRACTION  OF  APPARENT  CRATER  HASS  LOFTEO  FOR  BURST  IM 

21  C  ACV(IM)  *  APPARENT  CRATER  VOLUME  SCALING  FACTOR  (H3/(LB  TNT]!. Ill) 

22  C  M  ( IM  )  *  YIELD  OF  BURST  IM  (l.B  TNT) 

21  C  XtC  *  LOADING  FACTOR  FOR  CARBON  (  RATIO  OF  THE  NEICHT  OF 

2o  C  CARBON  IN  THE  CLOUD  TU  THE  YIELD  HEIGHT  ) 

25  C  RHOD  *  BULK  OENSITY  OF  SOIL  (GM/CH3) 

26  C  RHOC  *  CARBON  OENSITY  (GM/£M3) 

27  C  DBASE  «  RATIO  OF  THE  HASS  In  THE  BASE  CLOUD  TO  THE  HASS  IN  THE 

28  C  MAIN  CLOUD 

29  C 

30  C  INPUTS  FROM  CU«E  COMMON 

31  C  XCENTO  F  X  COORDINATE  r>F  THE  CENTROID  F0R  DUST  PARTICLES  (BOTH 

32  C  MODE  A  AND  MODE  B)  FqR  THE  MAIN  CLOUD  IN  SIZE  GROUP 

33  C  IDG  FOR  BURST  NUMBER  IM  AT  TIME  T  (METERS) 

34  C  YCENTO  *  Y  COORDINATE  OF  THE  CENTROID  FOR  DUST  PARTICLES  IN  SIZE 

35  C  GROUP  iDG  FOR  BURST  IM  AT  1IHE  T  (METERS) 

36  C  ZCENTO  *  Z  COORDINATE  OF  THE  cENTROID  FOR  DUST  PARTICLES  IN  SIZE 

37  C  GROUP  IDG  FOR  BURST  |W  AT  TIME  T  (METERS) 

SB  C  XCENTC  »  X  COORDINATE  OF  THE  CENTROID  FOR  CARBON  PARTICLES  IN  SIZE 

39  c  GROUP  IDS  FOR  BURST  jm  AT  TIME  T  (METERS) 

“0  C  YCENTC  a  Y  COORDINATE  OF  THE  fENTROID  FOR  CARBON  PARTICLES  IN  SIZE 

«1  C  GROUP  IDG  FOR  BURST  JM  AT  tine  T  (METERS) 

02  C  ZCENTC  =  Z  COORDINATE  Of  TH£  cENTROID  FOR  CARBON  PARTICLES  IN  SIZE 

03  C  GRniip  IDG  FOR  BURST  JM  AT  TIKE  T  (METERS) 

00  C  RTD  *  RAOIUS  IN  THE  HIND  TRACK  DIRECTION  FOR  DUST  PARTICLES  IN 

05  C  THE  MAIN  CLOUD  IN  SI7E  GROUP  IDG  FOR  BURST  I*  AT  TIME  T 

06  C  (MEIERS) 

07  C  RPD  «  HAOJUS  IN  THE  DIRECTION  PERPENDICULAR  TO  MIND  TRACK 

OB  C  DIRECTION  for  OUST  PARTICLES  IN  SIZE  GROUP  IDG  FOR  BURST 

09  C  IM  AT  TIME  T  (METFRSi 

50  C  RVO  *  R»OIUS  IN  THE  VERTICAL  DIRECTION  FOR  DUST  PARTICLES  IN 

51  C  SIZF  GROUP  IDG  FOR  B||RST  IM  AT  TIME  T  (METER3) 

52  C  RTC  »  RAOIUS  IN  THE  MIND  TRACK  DIRECTION  FOR  CARBON  PARTICLES 

53  C  IN  SIZE  GROUP  IDG  FOr  BURST  IM  AT  TINE  T  (METERS) 

50  C  RPC  *  RAOIUS  IN  THE  DIRECTION  PERPENDICULAR  TO  THE  MIND  TRACK 

55  C  DIRECTION  FOR  CARBON  PARTICLES  IN  SIZE  GROUP  ICC  FOR 

56  C  HURST  IM  AT  TIME  T  (hETERS) 

57  C  RVC  0  RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  CARBON  PARTICLES  IN 

58  C  size  GROUP  IDG  FOR  BtiRST  IM  At  TIME  T  (HETERS) 
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59 

C 

BXCNTO 

S 

X  COORDINATE  OF  THE  RASE  CLOUD  CENTROID  FOR  DUST 

69 

c 

PARTICLES  (BOTH  MODE  A  ANP  MODE  B)  FOR  SIZE  GROUP  I0G  FOR 

61 

c 

BURST  NUHBER  IN  AT  T;HE  T  (METERS) 

62 

c 

bvcntd 

s 

V  COORDINATE  OF  THE  0ASE  CLOUD  CENTROID  FOR  DUST 

63 

c 

PARTICLES  FOR  SIZE  GrOUP  IDG  FOR  BURST  IN  AT  TIME  T 

66 

c 

(HETERS) 

65 

c 

bzchto 

* 

Z  COORDINATE  OF  THE  rASE  CLOUD  CENTROID  FOR  OUST 

66 

c 

particles  for  size  group  idg  for  burst  in  at  time  t 

67 

c 

iMETERS) 

66 

c 

8XCNTC 

s 

X  COORDINATE  of  the  base  cloud  centroid  FOR  CARBON 

69 

c 

PARTICLES  FOR  SIZE  GrOUP  IPG  FOR  BURST  IN  AT  TIME  T 

70 

c 

(“ETERSl 

71 

c 

BYCflTC 

3 

T  COORDINATE  Gr  THE  0ASE  CLOUD  CENTROID  FOR  CARBON 

72 

V 

PARTICLES  FOR  SIZE  GrOUP  IDG  FOR  BURST  IN  AT  TIME  T 

73 

ft 

(METERS) 

7a 

u 

BZCNTC 

3 

Z  COORDINATE  OF  THE  0ASE  CLOUD  CENTROID  FOR  CARBON 

75 

t » 
l# 

particles  pop  size  group  ios  for  burst  in  at  time  t 

76 

c 

(PETERS) 

77 

r 

3RT0 

S 

badius  in  the  mind  track  direction  for  the  base  cloud 

76 

r 

DUST  PARTICLES  IN  Size  GROUP  IDG  FOR  BURST  IN  AT  TIME  T 

•>9 

c 

(METERS) 

60 

c 

8RPD 

C 

RADIUS  IN  THE  DIRECTION  PERPENDICULAR  TO  THE  MIND  TRACK 

e: 

c 

DIRECTION  For  the  BAgE  CLOUD  OUST  PARTICLE3  IN  SIZE  GROUP 

82 

c 

IDG  FOR  BURST  IN  AT  TIME  T  (METERS) 

63 

c 

BSVD 

3 

RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  THE  BASE  CLOUD  DUST 

69 

c 

PARTICLES  IN  SIZE  GRrV->P  IDG  FOR  BURST  IN  AT  TIME  T 

85 

f 

(METERS) 

es 

c 

BRTC 

3 

RADIUS  IN  THE  MIND  TpACK  DIRECTION  FOR  THE  BASE  CLOUD 

87 

c 

CARBON  PART’CLES  IN  $IZE  GROUP  IDG  FOR  BURST  IK  AT  TIME  T 

60 

c 

(METERS) 

89 

c 

asPc 

S 

radius  in  the  direction  perpendicular  to  the  mind  track 

90 

c 

direction  FOR  the  BASE  CLOUD  CARBON  PARTICLES  IN  SI2E 

91 

.  c 

GROUP  IOG  for  BURST  JM  AT  TIME  T  (HETERS) 

92 

c 

BRVC 

n 

RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  THE  BASE  CLOUD 

93 

c 

CARBON  PAPTICLE3  IN  SIZE  GROUP  IDG  FCR  BURST  I*  AT  TIME  T 

99 

c 

(METERS) 

95 

c 

96 

t 

INPUTS 

FRO"  CINITG  COHHQN 

97 

c 

FMAC 

»  FRACTION  OF  Ha  I  1  CLt.UD  OUST  MASS  IN  MODE  A  PARTICLES 

9e 

c 

FMBC 

*  FRACTION  OF  MAIN  CLoUD  DUST  »:aSS  in  mode  B  P'RTICLES 

99 

c 

THA330C !*■)  •  TOTAL  INITIAL  DUaT  MASS  LOFTED  IN  MAIN  CLOUD  OF  BURST 

100 

c 

in  (CH) 

101 

c 

IRASSCIIN)  *  TOTAL  INITIAL  C7  <BC’l  HASS  LOFTED  IN  MAIN  CLOUD  OF 

102 

I* 

BURST  IN  <GN) 

10J 

c 

169 

c 

INPUT? 

r 

P0H  CPGRP  COMMON 

ICS 

c 

FMA ( I f 

=  MASS  FRACTION  FOR  SIZE  GROUP  I  FOR  MODE  A  oijST 

106 

c 

particles  i  ratio  of  mass  of  particles  in  size  group  i 

107 

c 

to  TOTAL  Hass  IN  DISTRIBUTION  ) 

103 

f 

FMDU  j 

«  MASS  FRACTION  FOR  SIZE  GROUP  I  FOR  MODE  B  DUST 

199 

c 

PARTICLES 

110 

c 

FhC (IS 

s  HASS  FRACTION  for  SIZE  GROUP  I  FOR  CARBON  PARTICLES 

ill 

c 

CHU2AC 

if 

J)  s  MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  1  AT 

112 

c 

WAVELENGTH  J  FOR  MODE  A  OUST  PARTICLES  CCH2/GM) 

113 

c 

CMUEBt 

1 1 

J)  =  MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

1  10 

c 

WAVELENGTH  J  FOR  NOCE  5  DUST  PARTICLES  ICH2/GH) 

115 

c 

CHUECd. 

J)  ■  HASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

116 

c 

WAVELENGTH  J  FOR  CARBON  PARTICLES  CCH2/GH) 

130 


117 

C 

11« 

c 

OUTPUTS  TO  CPATH  COMMON 

119 

c 

PMA33A 

a 

HASS  PENETRATED  along  THE  PATH  BETMEEN  RECEIVER  AND 

120 

c 

TRANSMITTER  NUMBER  IrT  OUE  TO  MODE  A  DUST  PARTICLES  IN 

121 

c 

SIZE  GROUP  IDG  IN  THf  MAIN  CLftUD  OF  BURST  IN  (GM/CM2) 

122 

c 

PMA33S 

a 

MODE  8  OUST  PARTICLE  MASS  PENETRATED  (GH/CH2) 

123 

c 

PHASSC 

a 

CARBON  PARTICLE  MASS  PEhtTRATEO  {SM/T.M2) 

129 

c 

8PHASA 

a 

HASS  P£NETRATEO  ALONg  THE  PATH  BETMEEN  RECEIVER  AND 

125 

c 

TRANSMITTER  NUMBER  IrT  due  to  mode  a  oust  PARTICLES  in 

126 

c 

SIZE  GROUP  IDG  IN  THE  8ASE  CLOUD  OF  8URST  IN  (GM/GH2) 

127 

c 

8PMASB 

2 

MODE  8  DUST  PARTICLE  MASS  PENETRATED  (GH/CH2) 

12? 

c 

BPMASC 

S 

CARBON  PARTJCLE  HASS  PENETRATED  (GH/CH2) 

129 

c 

GMaSSA 

s 

MASS  OF  MODE  A  OUST  PARTICLES  IN  SIZE  GROUP  IDG  IN 

130 

c 

T«£  MAIN  CLOUD  Of  BURST  IN  (GM) 

131 

c 

G«AS$B 

* 

MASS  OF  MODE  R  DUST  PARTICLES  IN  SIZE  GROUP  IDG  IN 

13c 

r 

The  main  CLOUO  OF  BURST  jm  (sh) 

133 

c 

GMA3SC 

s 

MASS  OF  CARBON  PARTICLES  IN  SIZE  GROUP  IDG  FROM  BURST  IN 

130 

c 

IN  THE  main  CLOUO  of  BURST  1m  (GH) 

135 

c 

BGHA3A 

a 

MASS  OF  MODE  A  DUST  PARTICLES  IN  SIZE  CROUP  IDG  IN 

136 

c 

the  base  CLOUD  OF  burst  in  (GM) 

137 

c 

8GMA38 

a 

MASS  OF  MODE  B  DUST  PARTICLES  IN  SIZE  CROUP  IDG  IN 

138 

c 

THE  BASE  CLOUO  OF  BURST  IN  (GM) 

139 

c 

CHA33C 

a 

MASS  OF  CARBON  PARTICLES  IN  SIZE  GROUP  IDG  FROM  BURST  JN 

190 

c 

IN  THE  BASE  CLOUO  OF  BURST  IN  (GM) 

191 

c 

192 

COMMQN 

/ 

CPGRP  /  FNA(SO),  FN6(50),  FNC(SO).  FMA(SO),  FM8(S0). 

193 

1 

FMC{50),  PNSb(SO) i  PNCB(SO),  PNGC(50), 

199 

2 

CMU$A(50iiO)t  CHUS9 (50# 10)  r  CMUSC (50, 10 ) , 

195 

3 

CHUEA(50,10j#  CMUEB (50# 10) #  CMUEC (SO, 1 0 ) , 

196 

9 

CMUBA(50« 10) #  CmuBB(50,10)#  CMUBC(50,10) 

197 

COMMON 

/ 

CINPT1  /  N(10i,  FM(10)#  CT'10),  CK10),  CV(10),  XB{10), 

198 

1 

YB( 10) #  Z3( 1 0) ,  COB(IO).  FCN(IO),  ACV(IO), 

199 

2 

PHTBDG(lO) 

150 

Common 

/ 

CINPT2  /  FREO(IO),  Xl*HDaiiO)#  XTCIO),  VT(IO).  ZT(IO), 

151 

1 

XR(iO),  VRCiO),  ZR(IO) 

152 

COMMON 

/ 

CINPT9  /  RHOC.  RHOD#  RHOC.  FH20.  XLC#  RMAB,  RBA3E 

153 

COMMON 

/ 

CTIMC  /  XCENTD,  VCENTD#  ZCENTD,  XCENTC,  YCENTC,  ZCENTC. 

159 

1 

RID#  RPp#  RvD.  RTC#  RPC#  RVC#  RS#  H3»  RT.  RP t 

155 

2 

RV.  XCENTO,  TCENTO,  ZCENTO,  BXCNTD.  BYCNTD# 

156 

3 

BZCNTO.  BXCnTC,  BTCNTC.  BZCNTC.  BRTD,  PRPD, 

157 

9 

8RV0#  BRTC#  8RPC,  BRVC,  BXCNTO#  BVCNTO#  BZCNTO# 

158 

5 

BRT,  BRP,  BRV 

159 

COMMON 

/ 

CINITG  /  RI(10),  RTI{10),  RPI(IO).  RVI(IO),  XK3(10)« 

160 

1 

FR(10),  XKV(IO),  RTO(IO)#  RPO(IO),  SINPN,  C03PN 

161 

2 

VMIO#  VMIOX,  VMlOV,  VMRVI(IO),  VNSVIX(IO), 

162 

3 

VMRVIY(IO),  THASvD(lO),  THASSC(IO),  FmAC#  FmBC, 

163 

9 

POKER,  TDMAtN(lO),  TOBASE(IO) 

169 

COMMON 

/ 

CPATH  /  PHAS3A#  PMASjlB,  PHASSC#  CMAS3A,  3HAS3B,  CMASSC 

165 

1 

,  BPHASA,  BPHAsS#  bfhasc.  bgnasa,  bghasb,  BGMA3C 

166 

c 

167 

c 

3ET  VALUE  OF  RATIO  OF  GROUP  SIZE  RADIUS  TO  GROUP  STANDARD 

160 

c 

DEVIATION 

169 

OATA  CR 

/  2.15  / 

170 

c 

171 

DIMENSION  VECR(3)f  VECTI3).  VfCCEN(3),  VECTCN13).  VECTRJ3). 

172 

I 

VEC8TR(3>#  VEC INT ( 3) #  VECIC(3) 

173 

c 

170 

c 

CHECK 

IF 

RECEIVER  -  TRANSMITTER  LOCATIONS  FOR  THIS  FREQUENCY  ARE 

131 


175 

176 

177 

178 

179 

180 
181 
182 
IHJ 
1  So 
if- 
'»k& 
’87 
ISS 

ISO 

ie- 

192 

193 
105 

195 

196 

197 

198 

199 

200 
201 
202 
203 
209 

205 

206 

207 

208 

209 

210 
211 
212 
213 
213 

215 

216 
217 
210 

219 

220 
221 
222 
223 
220 

225 

226 

227 

228 

229 

230 
23t 
232 


C 

C 


C 


c 

c 

c 


c 

c 

c 


c 

c 


c 

c 

l 

c 

c 

c 


c 

c 


the  same  as  fop  the  previous  calculation,  if  the  same,  skip  the 

PATH  INTEGRATION 


IFf 

IRT  .EG. 

1  ) 

GO  TO  30 

IRT  1 

3  IRT  - 

1 

IFf 

XRfIRT) 

•  NE. 

XRf IRT1) 

.or; 

TRfIRT)  .NE. 

VRfIRTI)  .OR 

ZRflRI j 

.  NE , 

ZPfIRTI ) 

)  Go 

TO  30 

IFf 

TTf 1ST) 

.NE, 

XTfIRTI} 

.or; 

VT(IRT)  .me. 

VTfIRTI)  .OR 

?T( IRT ) 

.NE. 

ZTfIRTI) 

)  Go 

TO  30 

GO  TO  200 

s?t  vectors  for  receiver  and  transmitter  locations 

30  VECPf.)  =  IS.-JRT) 

VECRiai  s  VR.-ISTJ 

v “ C 3‘ ' 3 )  2  Tsrrs-*! 

V  CT'*i  r  X*CJRT) 

VfC'-'P5  =  v7tIRT) 

V£CTf j)  s  ITffRTJ 

LOOR  OVER  THE  materials  M-TH  DIFFERENT  DENSITIES 

DO  190  ID  *  1,  2 

IFf  ID  ,ES.  2' )  GO  TO  S5 

MATERIAL  IS  DUST 

ChECK  JF  SIZE  GROUP  HAS  INSIGNIFICANT  PROPAGATION  EFFECT 

PHA33N  s  0, 

8PHASN  =  0. 

IFf  CHUEAdDG,  IRT)  ,FQ.  0,  .AhO.  CHUEBfIOG, IRT)  ,EO.  0.  )GO  TO  170 
GO  TO  00 

MATERIAL  IS  CARBON,  CHECK  IF  cASSON  DENSITY  13  THE  SAHE  AS  THE 
DUST  DENSITT,  IF  THE  DENSITIES  ARE  THE  3AME  USE  THE  PREVIOUSLY 
CALCULATED  OUST  NORMALIZED  M*s3  PENETRATED  V'AtuESflF  NONZERO) 

35  IFf  RhOC  .EG,  RhGD  .AND.  AMAX; f  PmASSN,  sphasH  )  .Nt.  0.  ) 

1  GO  TO  ISO 

CHECK  IF  SIZE-SROUF  HAS  INSIGNIFICANT  PROPAGATION  CFFECT 

PMASSN  *  0. 

RPMASN  =  0. 

IFf  CMUECflDG, IRT)  .EG.  0,  }  B0  TO  ISO 

FIRST  FIND  T«E  MASS  PEN£TR/*Ed  FoR  THE  MAIN  CLOUD,  THEN  FOR  THE 
BASE  CLOUD 

«0  Of)  160  1CLOU0  *  1,  2 

SET  values  F-OP  PARTICLE  RADII  AND  CENTROID  LOCATIONS 
IFf  ID  ,£0.  2  )  GO  TO  50 

SET  The  OUST  papnatETERS  FOR  ?ATv  1nTcCratICN 
IFf  ICLOUP  .EG.  2  )  GO  TO  35 

MAIN  CLOUD 
RVCEn  =  RVC 
RTCEN  =  RID 
PPCEn  =  RPD 
VECCENflj  =  TCEMTO 
VECCENC2)  =  VCENIO 
VECCEVf  3)  =  ZCF.nTD 
GO  TO  60 


I 


1 


211 

C 

21* 

C 

BASE  CLOUD 

21$ 

65  RVCEN  *  BrVD 

21 6 

RTCEN  a  8RT0 

277 

RPCEN  a  BRPO 

238 

VcCCJNd  )  3  BXCHtD 

238 

VECCENC2 j  s  SYCNTD 

2*0 

VECCENfl)  *  82CNT0 

261 

CO  TO  60 

2*2 

r 

2*1 

C 

SET  the  CARBON  PARAHETERS  FOR  THE  PATH  INTEGRATION 

2* * 

50  IF C  TCLOl/v  ,E0.  2  5  SO  TO  55 

235 

c 

236 

c 

«*IN  CLOUD 

237 

RVCEN  a  RVC 

23* 

RTCEN  a  RTC 

263 

RPCEN  a  RPC 

230 

VECCENfl)  *  XCENTC 

251 

VECCENT2)  *  TCENTC 

252 

VECCENfS)  *  2CENTC 

255 

CD  TO  60 

253 

c 

255 

c 

BASE  CLOU- 

256 

55  RVCEN  a  BKVC 

257 

RTCEN  *  BRTC 

2S» 

RPCE«  a  BRPC 

253 

VECCENC 1 j  a  BXCNTC 

260 

VECCEHf 2)  a  BTCNTC 

261 

VECCEH(3)  a  S2CNTC 

262 

c 

263 

c 

266 

c 

SET  GAUSSIAN  STANDARD  OEVlATIgNS,  SET  GAUSSIAN  DENSITY  CALCULAT 

265 

.  c 

CONSTANT 

266 

60  SIAM  a  RTCEN  /  CR 

267 

STANP  a  RPCEN  /  CR 

268 

STANV  a  RVCEN  /  CR 

269 

3TA*!  a  AHAXlf  STANTf  STANP  ) 

270 

COMSTI  *  6.3693939E-8  /  (  STA*(T  •  STANP  •  STANV  ) 

271 

c 

272 

c 

*IMD  THE  POINT  Op  CLOSEST  APPROACH  OF  THE  PATH  TO  THE  CENTROID 

273 

c 

iuUtioh 

27« 

CALL  SUBVEC (  VECT,  VECCENr  VECTCN  j 

275 

CALL  SUBVECf  VFCT,  YECR,  VECTR  } 

276 

CALL  DOTVtCf  VECTR,  VECTR,  TR»  ) 

277 

C*L‘L  DOTVECf  VECTCN,  VECTR*  TcTR  ) 

27A 

SETA  a  TCTR  /  TH2 

279 

c 

280 

c 

CHECK  IF  CROUP  CENTROID  IS  *OrE  V-’ AN  S  STANDARD  DEVIATIONS  FROM 

261 

c 

THE  POINT  „F  CLOSEST  APPROACH.  IF  »T  IS,  SKIP  INTEGRATION 

282 

. 

CALL  OOTVECf  VECTCN,  VECTCN,  0TCN2  ) 

283 

DCP  a  SORT f  DTCN2  -  TR2  a  BET*  «a  2  j 

286 

IF C  DCP  /  STAN  ,6T,  5,  j  GO  Tn  160 

265 

c 

286 

c 

IF  POINT  OF  CLOSEST  APPROACH  IS  OUTSIDE  ENDPOINTS  OF  PATH 

267 

c 

INTEGRATION,  SET  TO  NEAREST  P*TH  ENDPOINT 

286 

IF<  BETA  ,s.T.  0.  )  BETA  a  0. 

269 

IF(  BETA  ,CT.  1.  Jr  BETA  a  J. 

290 

c 

133 


2<?1 

292 

29} 

29« 

295 

296 

297 
296 

299 

300 

so: 

302 

303 
305 

305 

306 

307 
303 
309 
5io 

311 

312 

313 
3!: 
5*6 

316 

317 
313 

319 

320 
3t*. 
3v2 
323 
3?! 
2 -'6 
5^6 

327 

328 

329 

330 

331 

332 

333 
337 
35c 
<}«. 
337 

339 

300 

3«1 

392 

393 
399 
39$ 

396 

397 

398 


C 

C 

c 

r 

C 

C 


c 


c 

c 

c 


c 


c 

c 

c 

c 

r 

c 

c 


c 

c 


c 


INTEGRATION  STRATEGY  -  START  aT  POINT  OF  CLOSEST  APPROACH, 
INTEGRATE  FORWARD  TO  FIRST  ENDPOINT,  THEN  BACKWARDS  TO  THE 
second  endpoint,  stop  integration  if  distance  from  integration 

POINT  TO  GROUP  CENTROID  POINT  EXCEED3  5  STANDARD  OEVIATtGRG 
HE  USE  A  SIMPSONS  RULE  INTEGRATION  WITH  STEP  SIZES  OF  ABOUT  0,2 
OF  THE  l ARSES!  OF  THE  THREE  CaUSSIAN  STANDARD  DEVIATIONS 

FIND  TOTAL  PATH  LENGTH  8ETHEEN  RECEIVER  AND  TRANSMITTER 
CALL  OSTVECC  VgCT t  V£CP,  D«I  j 

INTEGRATE  FORWARDS  AND  BACKHANDS  FROM  POINT  OF  CLOSEST  APPROACH 

DO  lib  INT  i  2 

Ic(  InT  .EG.  2  )  GO  TO  70 

FORHAPD  INTEGRATION  SEGMENT.  INTEGRATE  FROM  CLOSEST  APPROACH  POINT 
TO  SECEIV’F- 

3ET  STEP  Slit 

DIR  s  M»  *  C  1.  •  BETA  ) 

N3T£P  c  !FIX{  5.  *  DIR  /  STAN  1 
D5ETA  i  (  1.  -  BETA  )  /  FLf.AT(  N37£P  J 
iFf  NSTEP  .EC,  0  3  CO  TO  170 

I F  (  «OD;  NSTEP.  2  3  .ED.  I  )  nSTEP  9  NSTEP  ♦  1 
GO  70  80 


SECOND  HA  I  F  OF  INTEGRATION,  INTEGRATE  FROM  POINT  OF  CLOSEST 
AP^OACH  IQ  TRANSMITTER 
70  O' 7  2  ORT  -  SETA 

N*  TER  =  IF I X  5.  «  DIT  /  SIAN  3 
iff  NSTEP  ,E  .  0  )  CO  TO  170 

IF  I  HOOt  NSTfP,  2  3  „EQ.  I  3  nSTfP  *  NSTEP  *  I 
DSETA  =  -  R£TA  /  -LOATf  NSTEP  ! 

*■■0  ICO  *  1 
Suu  *  a, 

RETAT  r^EjA  -  OSETA 

»0  120  ISTE?  *  l,  NSTEP 
BETaI  3  SET*-  t  DBcTa 

FIJ1P  VECT.lR  TO  INTEGRATION  POtNT 
CALL  M-jlsECJ  vECTR,  -  EE7AI ,  yECSTR  ) 

CALL  ABOVE C !  vfCTf  V£CBTR,  V££INT  3 

find  projection:-  of  the  vector  from  the  centroid  to  the 

INTEGRATION  POINT  in  the  TRACK,  CROSS  TRACK,  AND  VERTICAL 
DIRECTIONS 

CALI  3HSVECI  VECINT,  YECCEN,  VECIC  3 
PROJV  2  vECICf 33 

PRi-JI  9  •'F?:tti3  *  SI'PH  *  VEr|C;23  *  COSPN 

?!*  ,JF  i  S?CsC;i  3  •  C"-SFw  -  VECIC(2>  •  SINPN 

Check  if  M3TAWCE  FROM  INTEGRATION  POINT  TO  CENTROID  IS  "ORE  Than 
5  S7‘.Nr-A3C  DEVIATIONS,  if  SO,  STOP  THIS  Po°TICN  Or  THE  INTEGRATION 
3DE  V  s  0.5  *  (  (  PBOJT  /  STA*.*7  3  **  2  ♦  !  PPOJP  f  STAMP  )  »«  2 

1  »  C  P°SW’.  /  STAHV  3  »,  P  1 

IF!  JSO;¥  .CT.  12.5  7  GO  *0  13c 


134 


309 

350 

35J 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 
370 

375 

376 

377 

378 

379 

380 

381 

382 

383 
380 

385 

386 

387 

388 

389 

390 

391 

392 

393 
390 

395 

396 

397 

398 

399 
000 
ooi 
002 
003 
ooo 
005 
006 


ASSUMING  UNIT  MASS  IN  THE  SIZE  GROU*,  CALCULATE  EXPONENT  FACTOR 
OF  THE  GAUSSIAN  DENSITY  AT  TMe  INTEGRATION  POINT 
EXPF  *  £XP(  -  SOEV  ) 

IF t  ISTEP  .EG.  N3TEP  )  CO  TO  90 
GO  TD<  90,  100,  110  ),  I  GO 
90  SUM  c  SUM  ♦  EXPF 

JGO  «  2 

GO  TO  120 

100  SUM  a  SUM  ♦  0,  «  EXPF 

190  »  3 

GO  TO  120 

110  SUM  a  SUM  ♦  2.  *  EXPF 

IGO  a  2 

120  CONTINUE 

THIS  PHASE  OF  INTEGRATION  COMPLETED,  SET  CONTRIBUTION 
130  IF  C  TNT  .EQ.  2  j  GO  TO  100 

SET  NORMALIZED  PENETRATED  MASS  <  6M  /  CH2  )  CONTRIBUTION  FROM 

FIRST  INTEGRATION 

IF (  KLOUO  ,EQ.  2  )  GO  TO  135 

PHAS3N  *  100.  t  SUM  •  CONSTI  ,  DBETA  *  DRT  /  3. 

GO  TO  ISO 

135  8PHASN  «  100.  *  SUM  *  CONSTI  *  DBETA  *  DRT  /  3. 

GO  TO  150 

AOD  NORMALIZED  PENETRATED  NA3|  CONTRIBUTION  FROM  SECOND  HALF  OF 
PATH  INTEGRATION 

100  IF (  ICLOUD  .EG.  ?  5  GO  TO  145 

PHASSN  ■  PMASSN  «  100.  *  SUM  *  CONSTI  *  DBETA  *  DRT  /  3. 

GO  TO  ISO 

145  8PHASN  *  BPMASN  -  100.  *  SUM  i>  CONSTI  *  DBETA  »  DRT  /  3. 

150  CONTINUE 
160  CONTINUE 

NORMALIZED  PENETRATED  MASS  INTEGRATION  COMPLETED 
IF (  10  ,EQ.  2  i  GO  TO  180 

COMPUTE  MAIN  CLOUD  OUST  MASSES  IN  SI7E  GROUP 
170  GHAS3A  «  FM„C  *  TMAGSD C  IN)  •  jMA(IOG) 

GhaSSB  a  FMRC  •  TMASSDUM)  «  FMB(IDG) 

compute  the  actual  main  cloud  dust  mass  penetrated  for  this  size 
group 

PHA33A  a  GHASSA  •  PHASSN 
PMASSB  a  GHASSB  *  PMASSN 

COHPUTE  OUST  MASS  parameters  fOR  the  base  cloud 

BGMASA  a  RB<SE  *  GHASSA 

RGMA3B  a  RFHSE  •  GHASSB 

BPHAJA  a  BGMASA  *  BPMASN 

BPMASB  a  8GMASB  *  BPMASN 

GO  TO  190 

COMPUTE  MAIN  CLOUD  CARBON  MASS  IN  GROUP 


135 


#0? 

160 

gmassc 

#08 

C 

409 

c 

COHPUTE 

4i0 

c 

GROUP 

#11 

PHA3SC 

#12 

c 

#13 

c 

COMPUTE 

41# 

BGMASC 

#15 

6PMA3C 

#18 

c 

41" 

190 

COM"I9U 

9  10 

c 

#19 

200 

RETURN 

#20 

END 

136 


SUBROUTINE  OEPTH{  T»  IN,  IOC,  1RT  ) 


1 

2  C 

J  C  THIS  ROUTINE  CALCULATES  THE  OPTICAL  DEPTHS  FOR  EXTINCTION, 

0  C  SCATTERING  AND  ABSORPTION  FOR  THE  GIVEN  TINE,  BURST,  SIZE  GROUP, 

5  C  AND  RECEIVER  -  TRANSMITTER  PATH.  THIS  ROUTINE  ALSO  NRITE8  CUT  THE 

A  C  OETAILED  AND  SUMMARY  TIME  DEPENDENT  RESULTS 

7  C 

a  c  inputs  from  call  statement 

0  C  T  *  TIME  AFTER  burst  cs> 

10  C  IN  *  burst  number 

11  C  TOG  *  SIZE  GROUP  number 

12  C'  IRT  «  TRANSMITTER  -  RECEIVER  PAIR  NUMBER 

1J  c 

10  C  INPUTS  FROM  CINPT  COHHON  AREAS 

15  C  NX  s  NUHBER  OF  BURSTS 

16  C  NOG  «  NUHBER  OF  PARTICLE  DIAMETER  SIZE  GROUPS 

17  C  NRT  ■  NUHBER  OF  TRANSMITTER  -  RECEIVER  PAIRS 

16  C  NPROB  ■  NUHBER  OF  THE  PRESENT  CASE  BEING  CALCULATED 

19  C  IPRINT  «  PRINT  CONTROL  OPTION  CO  ■  PRINT  DETAILS  OF  PATH 

20  C  INTEGRATION,  1  «  PRINT  ONLY  SUMMARY  OF  THE  PATH 

21  C  INTEGRATION) 

22  C  FREOCIRT)  *  FREQUENCY  OF  TRANSMITTER  •  RECEIVER  PAIR  IRT  (GHZ) 

23  C  XLAHDA(IRT)«  WAVELENGTH  OF  TRANSMITTER  -  RECEIVER  PAIR  IRT 

20  C  (MICRONS) 

25  C  XTCIRT)  «  X  COORDINATE  OF  tR*NSHITTER  IRT  (METERS) 

26  C  VTCIRT)  «  Y  COORDINATE  OF  TRANSMITTER  IRT  (METERS) 

27  C  ZT.IPT)  ■  Z  COORDINATE  OF  TRANSMITTER  IRT  (METEP9) 

26  C  XR( IRT  j  ■  X  COORDINATE  OF  RECEIVER  IRT  (METERS) 

29  C  •  YR(IRT)  ■  Y  COORDINATE  OF  RECEIVER  IRT  (METERS) 

30  C  ZR(IRT)  ■  Z  COORDINATE  OF  RECEIVER  IRT  (METERS) 

J1  C 

32  C  INPUTS  FROM  CPATH  COMMON 

33  •  C  PMAS3A  *  MASS  PENETRATED  ALONg  THE  PATH  BETWEEN  RECEIVER  AND 

30  C  TRANSMITTER  NUMBER  IrT  DUE  TO  MODE  A  DUST  PARTICLES  IN 

35  C  SIZE  GROUP  IOG  FROM  BURST  IN  (GM/CM2) 

36  C  PHA3SB  «  MODE  B  DUST  PARTICLE  HASS  PENETRATED  (CM/CM2) 

37  C  PMASSC  «  CARBON  PARTICLE  MASS  PENETRATED  (GH/CM2) 

38  C  GMA33A  *  MACS  OF  MODE  A  OUST  PARTICLES  IN  SIZE  GROUP  IOG  AT  TIME 

39  C  T  DUE  TO  BURST  IW  (CM) 

00  C  GMASSB  «  MASS  OF  MODE  B  OUST  PARTICLES  IN  SIZE  GROUP  IDG  AT  TIME 

01  C  T  DUE  TO  BURST  IH  (Gm) 

02  C  CMASSC  ■  mass  OF  CARBON  PARTIcLES  IN  SIZE  GROUP  IOG  AT  TIME  T  OUE 

03  C  TO  BURST  IW  (GM) 

00  C 

OS  C  INPUTS  FROM  CPGRP  COMMON 

06  C  CMUSA ( 1 , J )  «  NASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

07  C  WAVELENGTH  J  FOR  MODF.  A  OUST  PARTICLES  (CM2/GM) 

«8  C  CHU3B{ I, J)  «  MASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

09  C  WAVELENGTH  J  FOR  MODE  B  DUST  PARTICLES  (CM2/GH) 

50  C  CMUSC(I,J)  »  MASS  SCATTERING  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

51  C  WAVELENGTH  J  FOR  CARBON  PARTICLES  (CH2/CM) 

52  C  CHUEA(I,J)  *  MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

53  C  WAVELENGTH  J  FOR  MODE  A  DUST  PARTICLES  (CM2/GM) 

50  C  CMUEBd, J)  »  MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

55  C  WAVELENGTH  J  FOR  MODE  8  DUST  PARTICLES  (CM2/GH) 

56  C  CMIlECd, J)  »  MASS  EXTINCTION  COEFFICIENT  FOR  SIZE  GROUP  I  AT 

57  C  WAVELENGTH  J  FOR  CARBON  PARTICLES  (CM2/GH) 

SB  C 
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INPUTS 

xcewro 


YCENTO  * 
ZCENTO  * 
XCENTC  = 
YCENTC  * 
ZCENTC  * 


RVCNTO 


btcnto 


8ZCNT0 


BXCNTC 


bycntc 


eZCNTC 


?  -0MH0N  lUSEp  ONLY  FOR  PRINTING  DETAILED  RESULTS) 

’  *  2  COORDINATE  OF  THE  CENTROID  FOR  DUST  PARTICLES  (BOTH 
NODE  A  AND  MODE  8>  FfjR  THE  MAIN  CLOUD  IN  SIZE  GROUP 
IDG  FOR  BURST  NUMBER  IH  AT  TIME  T  (METERS) 
l  *  Y  COORDINATE  OF  THE  CENTROID  FOR  DUST  PARTIES  IN  SIZE 
GROUP  IDG  FOR  BURST  JN  AT  TIME  T  (METER j) 

’  *  ^COORDINATE  OF  THE  CENTROID  FOR  DUST  PARTICLES  IN  SIZE 
CROUP  IDG  FOR  BURST  JN  AT  TIME  T  (METERS) 

=  x  COORDINATE  of  the  CENTROID  FOR  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  JW  AT  TIME  T  (METERS) 

*  J  COORDINATE  OF  THE  CENTROID  FOP  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  JW  AT  TIME  T  (METERS) 

*  Z  COORDINATE  OF  TH£  cENTROIO  FOR  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  IH  AT  TIME  T  (METERS) 

■  R*?IUS  !N  THE  wlNC  track  direction  for  oust  particles  in 
the  main  cloud  IN  size  GROUP  IDG  FOR  BURST  IH  AT  TIME  T 

*  *  CnO / 

B  RADIUS  IN  THE  DIRECTION  PERPENDICULAR  TO  HIND  TRACK 

DIRECTION  FOR  DUST  PARTICLES  IN  SIZE  GROUP  IOG  FOR  BURST 
I"  AT  TIME  T  (METERS) 

a  RADIUS  IN  The  vertical  DIRECTION  FOR  DUST  PARTICLES  IN 
SIZE  GROUP  IDG  FOR  BllRST  IH  AT  TIME  T  (METERS) 

*  RADIUS  IN  THE  wind  Track  DIRECTION  FOR  CARBON  PARTICLES 
IN  SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIME  T  (METERS) 

*  R*°*U8  ™E  DIRECTION  PERPENDICULAR  TO  THE  hINO  TRACK 
O.^tCTION  FOR  CARBON  PAR i ICLES  IN  SIZE  GROUP  IDG  FOR 
BURST  IH  at  TIME  T  (hETERS) 

*  R*°*U8  IN  TH£  VERTICAL  DIRECTION  FOR  CARBON  PARTICLES  IN 
SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIME  T  (METERS) 

=  X  COORDINATE  OF  THE  RASE  CLOUD  CENTROID  FOR  DUST 

PARTICLES  (BOTH  MODE  A  AND  MODE  B)  FOR  SIZE  GROUP  *DG  FOR 
BURST  NUMBER  Iw  AT  Tl«E  T  (METERS) 

B  Y  COORDINATE  OF  THE  BASE  CLOUD  CENTROID  FOR  OUST 
PARTICLES  FOR  SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIHE  T 
(METERS)  c  1 

*  Z  COORDINATE  OF  T:  ~  P„SE  CLOUD  CENTROID  FOR  DUST 
P^nCLES  FOR  SIZE  GROUP  IOG  FOR  BURST  IH  AT  TIME  T 

V “ t  ttnO  * 

*  *  coordinate  of  the  base  cloud  centroid  for  carbon 
particles  for  size  croup  iog  for  burst  i*  at  tihe  t 
(HET£R5 I 

=  Y  COORDINATE  OF  the  rase  CLOUD  CENTROID  FOR  CARBON 

particles  for  size  group  ipc  for  burst  iw  at  tihe  t 
(METERS) 

*  Z  COORDINATE  OF  the  base  CLOUD  CENTROID  FOR  CARBON 
PARTICLES  FOR  SIZE  GROUP  IDG  FOR  BURST  IH  aT  TIME  T 
(METERS) 

s  RADIUS  IN  THE  WIND  TRACK  DIRECTION  FOR  THE  BASE  CLOUD 
OU.T  P«T,CLes  IN  SIZE  GROUP  IDG  FOR  BURST  Iw  AT  TIME  T 

*  0IREETI°N  PERPENDICULAR  TO  THE  HIND  TRACK 
DIRECTION  FOR  THE  BASE  CLOUD  OUST  PARTICLES  IN  SIZE  GROUP 
IOG  FOR  BURST  IK  AT  TIME  T  (METERS) 

s  I!??™3  ™E  V£RTIC*L  DIRECTION  FOR  THE  BASE  CLOUD  OUST 
PAR'ICLE-  IN  SIZE  GROUP  IDG  FOR  BURST  IH  AT  TIME  T 
(METERS) 

3  RADIUS  IN  ThE  HIND  Track  DIRECTION  for  the  base  cloud 
carbon  particles  in  size  group  iog  for  burst  in  at  time  t 
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117 

11# 

119 

120 
121 
122 
123 
1 29 
125 
12b 
127 
12# 

129 

130 

131 

132 

133 
1  li 

135 

136 

137 
136 
139 
190 
l«! 
:92 
193 
190 

105 

196 

197 
19# 
199 

150 

151 

152 

153 
159 

155 

156 

157 

158 

159 

160 
161 
162 
163 
169 

165 

166 

167 

168 

169 

170 

171 

172 

173 
1>« 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f 

c 

c 

c 


c 

c 

c 

c 

c 


c 


(METERS) 

BRPC  «  RADIUS  IN  THE  DIRECT  JON  PERPENDICULAR  TO  THE  MIND  TRACK 
DIRECTION  FOR  THE  8A3E  CLOUD  CARBON  PARTICLES  IN  SIZE 
GROUP  IDG  FOR  BURST  TH  AT  TIHE  T  (METERS) 

BRVC  «  RADIUS  IN  THE  VERTICAL  DIRECTION  FOR  THE  BASE  CLOUD 

CARBON  PARTICLES  IN  SIZE  GROUP  IDG  FOR  BURST  IN  AT  TIHE  T 
(METERS) 

OUTPUTS 

TAUEA  *  OPTICAL  DEPTH  FOR  EXTINCTION  AT  TIME  T  ALONG  PATH  BETWEEN 
TRANSMITTER  .  RECEIVER  IRT  OUE  10  MODE  A  DUST  PARTICLES  IN 
SIZE  GROUP  IDG  GENERATED  BY  BURST  IW 
TAUE3  s  OPTICAL  DEPTH  FOR  EXTINCTION  DUE  TO  MODE  B  DUST  PARTICLES 
TAUEC  a  OPTICAL  OEPTM  FOR  EXTINCTION  DUE  TO  CARBON  PARTICLES 

tausa  s  optical  oe°th  fop  scattering  due  to  mode  a  oust  particles 

T AU3#  8  OPTICAL  0£DTH  f(iP  SCATTERING  DUE  TO  MODE  B  DUST  PARTICLES 

TAUSC  *  OPTICAL  DEPTH  FQR  SCATTERING  OUE  TO  CARBON  PARTICLES 
TAUAA  i  OPTICAL  DEPTH  FOR  A#SflHpT ION  DUE  TO  MODE  A  OUST  PARTICLES 

TAUAB  a  OPTICAL  OEPIH  FOR  ABSORPTION  DUE  TO  MODE  B  DUST  PARTICLES 

TAUAC  a  OPTICAL  DEPTH  FOP  ABSORPTION  DUE  TO  CARBON  PARTICLES 

OUTPUTS  TO  CDEPTM  COMMON 

TAUEWUW.IRT)  8  TOTAL  EXTINCTION  OPTICAL  DEPTH  ALONG  PATH  IRT  DUE 

to  all  size  groups  and  materials  from  burst  iw 

TAU3W( IN# IRT)  8  TOTAL  SCATTERING  OPTICAL  DEPTH  DUE  TO  BURST  IN 
TAUAW(IW,IRT)  «  TOTAL  ABSORPTION  OPTICAL  DEPTH  DUE  TO  BURST  IN 
TAUE(IRT)  «  TOTAL  EXTINCTION  OPTICAL  OEPTH  ALONG  PATH  IRT  DUE 
TO  ALL  MATERIALS  IN  all  S;ZE  GROUPS  AND  ALL  BURSTS 
TAUS(IRT)  *  TOTAL  SCATTERING  OPTICAL  DE’TH 
TAUAC  IRT)  ■  TOTAL  AB3DRPT ION  OPTICAL  L'iPTH 


COMMON  / 

1 

COMMON  / 

common  / 


1 

2 
3 


9 


COHMON  / 


1 

2 

3 

9 

5 

1 

1 


Common  / 

COMMON  / 
COMMON  / 


CINPT2  /  FREQ(IO),  XLAMDA(10),  XT(10),  TT(10),  ZT(tO>, 
XR{10),  YR ( J  0 ) ,  ZR( 1 0  J 
CINPT6  /  NW,  NDG,  NRt,  NTIHE,  NPR06,  IPRINT 
CPGRP  /  FNA(SO),  FNB(SO),  FNC(50)»  FHA(50),  FMBC50), 

FHC (50 ) ,  PNGA(SO),  PNGB(50),  PNGC(30), 
CHU3A(50,10),  CMUSB(50,10>,  CMU3C (50, 1 0 ) , 
CHUEA(SO, 10),  CMUEB(50,10),  CMUEC (50, 1 0) , 
CMUBA(50,10),  CHUBB (50 , 10 ) ,  CMUBC(50,10) 

CTJME  /  XCENTD,  YCENtD,  ZCENTD,  XCENTC,  YCf.NTC,  ZCENTC, 
RTO,  RPD,  RvD,  RTC,  RPC,  RVC,  RS,  HS,  RT,  RP, 
RV,  XCENTO,  YCENTO,  ZCEHTO,  BXCNTD,  BYCNTD, 
BZCNTD»  BXCNTC.  BYcNTC,  BZCNTC,  BRTO,  BRPD, 
BRVD,  BRTC,  brpc,  BRVC,  8XCNT0,  BYCNTO,  BZCNTO, 
8RT ,  8RP,  0RV 

COEPTH  t  TAUEW( 10,10),  TAUSN( 1 0, 1 0) ,  TAUAW(10, 10), 
TAUE(IO),  TaUS(IO),  TAUA(IO) 

CPATH  /  PHASSA,  PHASsB,  PMASSC,  GMASSA,  GMA33B,  GHAS3C 
,  BPMASA,  BPHArS,  BPMASC,  BGMASA,  BGHASB,  BGMASC 
TAPE  /  ITAPE,  JTAPE 


COMPUTE  the  optical  DEPTH  For  EXTINCTION,  SCATTERING,  AND 
ABSORPTION  FOR  THIS  SIZE  GROUp  FOR  EACH  MATERIAL 
COMPUTE  OPTICAL  PARAMETERS  FOR  THE  MAIN  CLOUD  FIRST,  THEN  FOR  THE 
BASE  CLOUD 

00  105  ICLOUD  «  1,  2 

IF C  ICLOUD  ,£Q,  2  )  GO  TO  5 


139 


175 

C 

MAIN  CLOUD 

176 

TAU£A 

3 

PKASSA  *  CHUEA(IDG.IRT) 

177 

TAUE8 

* 

PHAS38  *  CHUEBCIOG.IRT) 

178 

TAUEC 

= 

PMASSC  *  CHUEC ( IDG r IPT ) 

179 

TAUSA 

* 

PHASSA  «  CHUSA ( IOG. IRT 1 

180 

TAUS6 

3 

PHASSB  «  CHUS6 (lOC/IRT) 

181 

TAUSC 

t 

PHASSC  *  CHUSC ( IDG# IRT . 

182 

CHUAA 

r 

CHUEA(IDG# IRT)  »  CMUSa(IDG» IRT) 

1  £5 

CHUA8 

s 

CHUEB(IOGiIRT)  «  CMUSRdDG.IRT) 

18a 

CHUAC 

£ 

CHUEC  (X0G/IR7)  -  CMiiSCdOG.IRT) 

185 

TAUAA 

Z 

PHASSA  *  CHUAA 

186 

TAUAB 

x 

PHASSB  *  CM1JAB 

187 

TAUAC 

3 

PMASSC  *  CHUAC 

188 

GO  TO 

7 

169 

C 

190 

C 

8ASE 

CLOUD 

191 

5  7AUEA 

3 

BPM AS A  *  CHUEACIOG# IDT) 

192 

TAUEB 

r 

8pHAS8  *  CHUE6C 106/ IPT ) 

19* 

19a 

195 

196 
19’ 
190 

199 

200 
201 
202 
203 
200 
205 
20b 

207 

208 

209 

210 
211 
212 
213 
210 
315 
216 

217 

218 

219 
320 
221 
222 
223 

220 

225 

226 

227 

228 

229 

230 

231 

232 


TAUEC 
T  AUSA 
TAUS8 
TAUSC 
TAUAA 
7  AUAB 
TAUAC 


BPXASC 

BPHASA 

oPHASB 

ap“ASc 

8PHASA 

p.phasb 

8PMASC 


ChueCCIDS/IRT) 
C**03»CIDf-*  lnr’ 
cmusb ( iOu/  :at; 
CHU3CC0G* -Pr> 

CHUAA 

CHuAB 

CHUAC 


SUM  The  EXTINCTION.  SCATTERINg  and  absorption  CONTRIBUTIONS  FROH 

THE  THREE  MATERIALS 

TAUET  a  TA'‘'A  >  TAUEC  ♦  TaUEC 

TAU3T  s  TAUS  «■  TAUSB  +  TAUSC 

TAUAT  a  TAUAA  ♦  TAUAB  ♦  TAUAC 

aoo  the  contributions  tq  the  totals  for  each  burst  and  for  all 

bursts 

♦ 

♦ 

+ 


tauet 

taust 

TAUAT 


TAUEM(1H,IRT1  r  TAU£M(IH,  JR-, ) 

TAUSMUH,  IRT  j  *  T*U3W(IW» I»T) 

TAIIAW  (IP.  IRT  )  -  TAUAMtlHf  JPT) 

TAUE(IRT)  *  TAUE(IRT)  ♦  TaUET 
TAUS(TRT)  s  TAUS(IRT)  ♦  TAUST 
TAUAURt:  -  TAUAUR7)  ♦  TAUAT 

HRITF  OUT  THE  DETAILED  fiESULTg  UNLESS  SUPPRESSED  By  IPRINT  OPTION 
Iff  IPRINT  ,G1.  0  )  GO  TO  105 

IF;  IDG  ,EQ.  1  ,ANO.  IRT  ,EQ.  1  .AND,  ICLOUD  .EO,  1  )  GO  TO  20 
XMSHAX  -  AHAXt(  PM-ASSA,  PHASSB.  PMASSC  ) 

iCLOUP  .£0.  2  )  XMSHAX  *  *HAXH  BPMASA.  BPMASB.  5PMA3C  ) 
iF (  XMSHAX  ,L£ ,  0,  )  GO  TO  IC5 


I?(  NUNES  ,!.T,  50  )  GO  TO  60 

kr;te<JT*pe»  10) 

10  FO  HAT ( 1  HI , 79H 

IE  GROUP  RESULTS  (CONTINUED)  ) 
Nl.INES  *  9 
GO  TO  90 

20  WRITE £  JT  APE  #  JO)  NPR08,  T,  IW 
30  F(JRHlT(!Hl,7aH 

IITTON  OUST  CLOUD  MODEL  //  1H 
263H 

3  ,  13  /  1H0, 


DETAILED  SIZ 

A  SI  BUN 
PROBLEM  NUMBER 


A 


140 


«72H 

SOR  TIME  *  ,  F6.1,  eh  SECONDS  /  1H  , 
672H 

7  NUMBER  *  ,  13  ) 

NLlNES  *  15 
«0  MRIt£<JT*PE,  50) 

50  FORMAT  (  1M0  /  1  HQ  r 

1I26HCL0UD  OUST  CARBOn  OU 


DETAILED  size  group  results  f 


1I26HCL0U0 
2ASS  CLOUD 
31H  , 

«125H 

SP 

A!H  , 

71 1 JMCROUP 
80E  A  PATH 


DUST  CARBOn  OUST  RADII  CARBON  RAOII  TOTAL  H 

GROUP  MASS  OPTICAL  DEPTH  ALONG  PATH  DUE  TO  GROUP  / 

CENTROID  CENTROjO  KIND  TRACK  KINO  TRACK  IN  GROU 

PENETRATED  EXTINCTION  SCATTERING  ABSORPTION  / 


DU3T-HO 

DUST-MO 


7 1 1 JMGROUP  X-COORO.  X-COORo.  CROSS  TRACK  CROSS  TRACK  DUST-MO 

SOE  A  PATH  DUST-MODE  A  DU3T-HODE  A  /  IH  , 

9113HNUMBER  V-COORD.  Y-COORo.  VERTICAL  VERTICAL  DUST-MO 

IDE  8  NUMBER  DUST-MODE  B  DUST-MODE  B  /  SH  , 

fUOH  Z-COORD.  Z-COORo.  (METERS)  (METERS)  CaRBO 

JN  CARBON  CARBON  /  1H  , 

«  85H  (METEPS)  .(METERS)  (CRAM 

SS)  (GH/CM2)  ) 

60  IF (  XMSMA*  .GT.  0.  '  GO  TO  6S 

IP(  IRT  ,£Q.  1  .AND,  IDG  .EO.  1  j  GO  TO  65 
GO  TO  105 

65  IF (  ICLOUD  .EO.  2  )  GO  TO  80 

KR|T£(JTAPE»  70)  XCENTDi  XCENtC#  RTD,  RTf,  GMASSA,  PMAS3A,  TAUEA. 

*  TAUSAj  TAUAA;  IDG.  TCENTD,  TCENTC.  RPD.  RPC. 

f  GMASSB,  IRT.  PMASS8.  TaUEB,  TAUSB.  TAUAB.  ZCENTD. 

3  ZCENTC.  RVD.  RVC,  GHASSC,  PMASSC.  TAUEC.  TaUSC, 

R  TAUAC 

to  format ( iho.  rhmain,  2Fii,i,  2f12,i,  ipeio,2,  5x,  qhhain.  ipfi2.2» 

*  *  ,3f  0PF12*1'  ZF12.1,  I°E1«.2»  17,  £16.2, 

,H  *  FJI.l,  2F12.1,  1PE1R.2,  E21 .2,  3EI3.2  ) 

GO  TO  100 

80  KR!TE(JTAPE,  90)  BXCNTO,  BXCNfC.  BRTD,  BRTC,  BGMA8A,  BPNaSA,  TAUEA 

*  *  taus*.  TAUAA,  IDG,  BYCNTD,  BVCNTC,  brpd,  brpc, 

2  BGMASB,  IRT,  BPMASB,  TaUEB,  TAUSB,  TAUAB,  BZCNTO, 

«  8ZCNTC,  8R¥D,  BRVC,  BGMASC,  BPMA3C ,  TAUEC,  TAUSC, 

90  FoRMATdHO,  RHBASE,  2F1I.I,  2fI2,I  ,  IPE19.2,  5X,  RMBA3E,  1PE12.2, 
i  Hi?*®7  *  IJ»  0pf»2.1f  Pll.l.  2FIZ.1,  I  PE  1 9,2,  17,  Elo.2, 

lOO^Yi  NUN^T!5,1'  FU***  2Fl2*'*  E2‘*2'  SEI5*2  » 

105  CONTINUE 

IF(  Ik  .EO.  NK  .AND.  IDG  .£0.  NDG  .AND.  IRT  ,EO.  NRT  )  CO  TO  1 10 
GO  TO  2«0 

ALL  CALCULATIONS  ARE  COMPLETE  FOR  THIS  TJMt.  KRITE  OUT  3UMHARY  OF 
cSULTS  FOR  EACH  PATH 
110  kRITEUTaPE,  120)  HPROB,  T 

*SL  MUNITION  DUST  clou 

JO  HODtl  //  1**0# 

PROBLEM  NUMBER  ,  13  /  IHO, 
SUMMARY  OF  PROPAGATION  RESULTS  FOR  TIME  =, 
«F6.I,  8H  SECONDS  //  j  C  ' 

NLlNES  ■  11 

00  230  KRT  *  l,  NRT 


141 


291  C 

2*?2  C  CALCULATE  THE  TRANSMISSIONS  CORRESPONDING  TO  THE  TOTAL  OPTICAL 

293  C  DEPTHS 


29a 

295 

296 


503 

SC-« 

305 

306 
'07 
3  On 

309 

310 
31  1 

312 

313 
319 

315 

3 1 6 
SIT 

318 

319 

320 

321 

322 

323 
32a 
323 

326 

327 

328 

329 

330 
335 

332 

333 
33s 

335 

336 
357 


TRANf  =  0. 
T RAN3  *  0, 
TPANA  x  0. 


297 

I F  ( 

TAUE(XRT) 

.LT. 

90.  ) 

TRANE 

3 

EXP (  -  TAUE(KRT) 

) 

296 

IF  C 

tausckrt) 

•  LT. 

OO.  ) 

TRANs 

3 

EXP(  -  TAUSIKRT) 

) 

299 

IF  E 

TAUACKRT) 

.LT. 

90.  ) 

TRAN* 

C 

EXP(  -  TAUA(KRT) 

) 

300 

c 

301 

00 

220  KW  a  1, 

nW 

302 

IF  t 

KRT  .£0.  1 

,  AND,  K* 

.ED.  1 

) 

GO  TO  l\- 

Iff  NUNES  .LE.  50  )  GO  TO  17o 
xSITEIJTAPE,  ISO) 

ISO  PORHA T{1H!/63h 
1 (CONTINUED)  //  ) 

-NUNES  =  6 

150  «rt'IIE{JTAPE,  160) 

160  FORMAT (  1  HO / 

1  97h  WAVELENGTH  RATH  cOORDINATES(HETERS) 

201 AL  OPTICAL  OPTICAL  DF.PTH  CoNTRl-  /  'H  , 

3  99H  PATH  (M-ICF0N3S  TRANSMITTER 

a  OEOTrt  8UT IONS  FROM  EAch  BURST 

S  9SHNUH6ER  FREOUENCT  X-CfiORD. 

BURST  EXTINCTION  /  1H 
(GHZ')  T-COORD. 

NUMBER  SCATTERING  / 

Z-CoORD. 

ABSORPTION 
)  GO  TO  190 


SUHHARf  OF  PROPAGATION  RESULTS 


6EXTINCTI0N 
7  9SH 

8SC  AT  TERING 
9  9SH 

1A8SORPTJCN 
170  IF  C  KW  .GT. 


1H 


RECEIVER 
/  1H  » 
X-COORD. 

, 

'.-COORD. 

Z-COORD, 


tot,*.l 

TRANSMISSION 

EXTINCTION 

SCATTERING 


ABSORPTION 


WRITEIJTAPE,  ISO)  KHT,  XLAMDA(KRT),  XTfKRT),  XRJKRT),  TRANE. 

1  TAUE(KRT),  KW»  TAUEWCKW.KRT),  FREPCKRT), 

2  YT(KRT),  TR(KRT),  TRANS,  TAUS(KRT), 

3  TAUSH(KW,KRT)»  ZT (KRT).  ZR(KRT),  trana, 

a  taua(krt),  t*‘Jaw(kn,xktj 

160  FORMAT ( IHO.  IS,  F13,I,  F!3,l,  FII.I,  1PE!6.2,  E15,2,  IB,  EH. 2  / 

1  !H  ,  1PE16.2,  OPFia.l,  FII.I.  IPE16.2.  EiS.2,  E22.2  / 

2  \r.  ,  1 6Xf  0PF1C.1,  FII.I,  1PEI6.2,  E  15.2,  E22.2  ) 

GO  TO  210 

190  write (JTAPE,  200)  AN,  TAUEK(Kw.KRT),  TAU3WtKN»KRT),  T AUAWCXH.KRT ) 
200  FGRmatUHO,  72X,  16,  1PE10.2  / 

1 1 H  ,  80X,  1PE1S.2/ 

21H  ,  BOX,  1PE1«.2  ) 

210  NLIHES  =  NLINES  ♦  S 

220  CONTINUE 


336  230  CONTINUE 

339  C 

3ao  Hao  RETURN 

3«1  END 
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subroutine  ADDVEC (  VI,  V2,  VJ  j 

THIS  ROUTINE  ados  THO  THREE  VICTORS  TOGETHER 

INPUTS 

VI  *  FIRST  THREE  VECTOR 
VZ  i  SECOND  THREE  VECTOR 

OUTPUT 

VS  ■  THREE  VECTOR  NHICH  IS  THe  SUH  OF  Vt  AND  VZ 

DIMENSION  Vt <3)»  V2<5),  VJ{3) 

DO  10  I  ■  I,  3 
V'3.‘I)  *  VI  (I  j  +  V2 1 1  j 
10  CONTINUE 

RETURN 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 
n 
>2 
I J 

14 

15 

16 

17 

18 
19 


SUBROUTINE  SUBV£C{  VI,  V2,  VJ  ) 

THIS  ROUTINE  SUBTRACTS  T*0  THpEE  VICTORS 
Inruts 

vi  >  first  three  vector 

V2  3  SECONO  THREE  VECTOR 


OUTPUT 

VJ  c  1HREE  VECTOR  NHICH  IS  VI 


V2 


OIHENSION  VKJ),  V2(3),  V3(3) 
V2(I ) 


00  1C  I  «  1,  3 
V3 ( 1 1  «  Vltl) 
10  CONTINUE 


RETURN 

END 
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SUBROUTINE  MUi.VEC(  VI,  St  VS  J 

THIS  ROUTINE  hultiplies  *  THREE  vector  by  a  scalar 

INPUTS 

vt  *  THREE  vector 
S  a  A  SCALAR 

OUTPUT 

V3  a  THE  THREE  VECTOR  RtSULTlNf  PROH  PULTIPLYINC  VI  BY  S 

OIMENSION  VI (3) t  V3(3) 

VI < I j  a  S  •  V!(l) 

VI(2)  a  S  •  VJ {23 
V3(I)  a  S  *  Vi (31 


PETURN 


SUBROUTINE  OOTVEC (  VI#  v2»  S  1 

This  ROUTINE  CALCULATES  The  OoT  product  of  TNO  three  vectors 


INPUTS 

VI  *  FIRST  THREE  VECTOR 
V2  a  SECOND  THREE  VECTOR 

OUTPUT 

S  «  SCALAR  OQT  PRODUCT  OF  VI  AND  V2 
DIMENSION  VI (3),  V2(3) 

S  *  V1(I)  *  V2( I )  ♦  Vl C2)  *  V£( 2)  t  VI (3)  *  V2I3) 
RETURN 

End 
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SUBROUTINE  OSTVFC {  VI,  V2»  OIJT  ) 

This  ROUTINE  calculates  The  Distance  BETWEEN  THE  ENDPOINTS  of 
VECTORS  VI  AND  V2 


INPUTS 

VI  *  FIRST  three  vector 
V2  *  second  three  vector 

OUTPUT 

OIST  r  DISTANCE  BETWEEN  ENDPOINTS  OF  VECTORS  V!  AND  V? 


DIMENSION  VI (3),  V2(3) 

OIST  *  SORT!  (  Vlf I)  -  V2(l)  j  »*  2  ♦  (  VI 12)  «  V2I2)  )  *♦  2 
1  ♦  t  VltS)  -  V2(3)  )  •*  2  ) 

return 

end 


. . . . 
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